DAVID LAWRENCE 


IL MEGLIO 

DAL COMMODORE 64 


programmi efficaci e rapidi 
per un ampio ventaglio di applicazioni 


























I libri delle Edizioni Elettroniche VIFI- 
Mondadori si rivolgono al pubblico 
degli utenti, attuali o potenziali, del 
personal computer e, in genere, a 
quanti sono interessati agli sviluppi, 
alle idee e alle tecnologie della cultu¬ 
ra informatica e della società dell'in- 
formazione. 


Volumi pubblicati: 

Giulio Banfi 

FACILE COME IL BASIC 
guida al linguaggio 
di programmazione più diffuso 
sui personal computer 

(5 a edizione) 

Ornella Bisio 

IL BASIC PER IMPARARE IL BASIC 
programmi utili e divertenti 
per il personal computer 

R Bradbeer P. De Bono P, Laurie 

CAPIRE IL COMPUTER 
come sono fatti e che cosa 
possono fare gli elaboratori 

Aldo Cavalcoli 

SCEGLIERE IL PERSONAL COMPUTER 

(3 a edizione) 

Alberto Cazziol Roberto Galimberti 
Marco Maiocchi Roberto Polillo 

UN PROGRAMMA CHIAMATO 
DOSSIER' 

applicazioni di dossier elettronici 
per la gestione del lavoro d'ufficio 


Vincenzo De Rosso 

COME SI PROGRAMMANO 
I COMPUTER 

(4° edizione) 

Richard E. Pattis 

PROGRAMMARE CON KAREL IL ROBOT 
l'informatica con carta e matita 

Horacio C. Reggini 

LOGO: ALI PER LA MENTE 
il linguaggio di programmazione 
ideato per l'educazione e il gioco creativo 

Fausto Servello 

CHE COS'È LA TELEMATICA 

le nuove tecnologie 

della società dell’informazione 

(2 8 edizione) 

lan Stewart Robin Jones 

IL PIACERE DI PROGRAMMARE 
CON LO ZX SPECTRUM 
dal BASIC alla grafica e alla musica 
con uno dei più popolari home computer 

Mario Trovato 

IL CALCOLATORE TASCABILE 
NELLA SCUOLA 
un'introduzione all'informatica 

(2“ edizione) 

Fuori collana: 

Luca Novelli 

IL MIO PRIMO LIBRO SUI COMPUTER 

(2 a edizione) 

Luca Novelli 

IL MIO PRIMO LIBRO DI BASIC 



Edizioni Elettroniche Mondadori 
Serie LIBRI 




DAVID LAWRENCE 


IL MEGLIO 

DAL COMMODORE 64 

programmi efficaci e rapidi 
per un ampio ventaglio di applicazioni 


ARNOLDO MONDADORI EDITORE 



Titolo originale dell’opera The Working Commodore 64 

Traduzione, redazione e impaginazione a cura dello studio editoriale MENABÒ - Como 
Progetto grafico di Bruno Paglia 
Disegno in copertina di Luca Novelli 


© David Lawrence 

First Published in English 1983 by: 

Sunshine Books (an imprint of Scoi Press Ltd.) 

12/13 Little Newport Street, London, WC2R 3LD 

© 1984 by ARNOLDO MONDADORI EDITORE S.p.A., Milano 



Indice 


Presentazione 7 

Note ai programmi 9 

1. Programmi utili e compatti 11 

1.1. Orologio 11 

1.2. Grafica 16 

1.3. Testi 21 

2. Ausili alla programmazione 29 

2.1. Merge 29 

2.2. Delete 33 

2.3. Renumber 35 

3. Il Commodore 64 a colori 39 

3.1. Artista 39 

3.2. Caratteri 47 

3.3. Animazioni 57 

3.4. Alta risoluzione 64 

4. Il Commodore 64 come segretario 71 

4.1. Unifile 71 

4.2. Unifile II 82 

4.3. Nnumer 92 

5. Programmi didattici 101 

5.1. Multidom 101 

5.2. Parole 108 

5.3. Dattilografo 113 

6. Alta micro-finanza 119 

6.1. Banchiere 119 

6.2. Ragioniere 126 

6.3. Bilancio preventivo 133 

147 


7. Musica 




Presentazione 


Questo libro vuole essere un contributo per colmare quella che mi 
sembra essere una vistosa lacuna nelle collezioni di libri per posses¬ 
sori di microcomputer: l’assenza di lavori intesi a soddisfare quello 
che ritengo essere il sogno di ogni possessore di un micro, quello cioè 
che la nuova macchina non diventi semplicemente un giocattolo, e 
neanche un’istruttiva introduzione all’era del silicio, ma uno stru¬ 
mento di lavoro, in grado di assumersi ogni tipo di compito, e di 
dischiudere ogni potenzialità. Per contro, la maggior parte dei libri, 
o consiste di banalità, oppure presuppone un desiderio — e forse 
anche una capacità — di sperimentare maggiore di quello che sia 
lecito attendersi. 

Desideravo scrivere un libro basato su una collaudata collezione di 
programmi che potesse valere la pena di possedere — programmi 
in grado di trattare argomenti come l’archiviazione di dati, la finan¬ 
za, la grafica, la musica, la gestione famigliare e l’istruzione. La di¬ 
scussione delle tecniche di programmazione sarebbe naturalmente 
sorta dai programmi stessi, piuttosto che come parte di una serie di 
“cose da imparare”. Spero che il libro che ne è risultato venga con¬ 
siderato utile, non solo come mezzo d’apprendimento di nuove tec¬ 
niche di programmazione, ma anche come una vera e propria colle¬ 
zione di programmi. Questi sono stati tutti provati autonomamente 
da un assistente per cercarne gli errori, e possono offrire un campo 
di applicazioni che avrebbe potuto aprirsi solo a chi fosse disposto 
a comperare costosi software in commercio, oppure già in grado di 
scrivere complessi programmi per soddisfare le proprie esigenze. 
In questo libro troverete, oltre ai programmi, anche le loro parti — 
cosa non banale come sembrerebbe, dal momento che i programmi 
sono scritti in forma “modulare”. Ciò significa che sono costituiti 
da unità funzionali chiaramente identificabili che, una volta com¬ 
prese, si possono estrarre e reimpiegare secondo necessità. Ogni mo¬ 
dulo, dove si riferisca a qualcosa di nuovo, viene completamente com¬ 
mentato, e vengono fornite istruzioni per provare i programmi, man 
mano che i moduli vengono inseriti. 
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Benché in alcuni paragrafi vengano affrontati anche argomenti di 
carattere generale, questo non è un libro da leggere, ma da usare. 
L’importanza dei vari commenti e consigli si chiarirà solo quando 
avrete lasciato da parte i tentennamenti per iniziare il lavoro di inse¬ 
rire in macchina quelli che, inizialmente, sembrano programmi così 
lunghi e complessi da essere scoraggianti. In questa sede, l’approc¬ 
cio modulare aiuterà ad evitare che i programmi diventino inestri¬ 
cabili grovigli di errori; dunque, provate i singoli moduli come vie¬ 
ne suggerito, particolarmente agli inizi. 

Alla fine, tuttavia, il successo del libro dipenderà dal fatto di essere 
o meno riuscito a farvi apprezzare appieno il vostro 64. Scrivere un 
libro come questo è un lavoro pesante, ciò nondimeno ho molto ap¬ 
prezzato la chiarezza che il 64 conferisce ai programmi, che su mac¬ 
chine meno potenti avrebbero potuto essere di gran lunga meno in¬ 
teressanti. 

Nel fare uso di questi programmi non vi sarà necessario un lavoro 
altrettanto faticoso — ma il risultato finale sarà entusiasmante in 
egual misura. 

Infine, non è possibile concludere un’introduzione a un libro come 
questo senza esprimere un profondo ringraziamento alla Commo¬ 
dore, per tutte le agevolazioni rese disponibili, e un ringraziamento 
non meno profondo a Steve Beats, della sede inglese della Commo¬ 
dore, per la pazienza dimostrata nel rispondere alle infinite doman¬ 
de relative al 64. 
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Note ai programmi 


Numerose funzioni del Commodore 64, come su altre macchine Com¬ 
modore, sono dettate da “caratteri di controllo”, contenuti in nor¬ 
mali stringhe, e vengono eseguite allorquando la stringa viene stam¬ 
pata. Solitamente i caratteri di controllo si possono riconoscere per 
il fatto di essere caratteri inversi (nella posizione ove si trova il ca¬ 
rattere, i colori dello sfondo e del simbolo sono scambiati). 

Le funzioni poste sotto il controllo di tali caratteri comprendono la 
posizione del cursore, il colore di stampa, l’attivazione e l’esclusio¬ 
ne dell’inversione (RVS), il riposizionamento del cursore in alto a 
sinistra (HOME) e la cancellazione dello schermo (CLR). 

La tabella seguente mostra i caratteri di controllo come appaiono 
nei programmi di questo libro: 


NERO ■ 

BIANCO * 

rosso r* 

CIANO k 

PORPORA 1 

VERDE fii 

BLU 3 

GIALLO n 

ARANCIO 13 

MARRONE IS 
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ROSSO CHIARO 


0 

GRIGIO 1 :« 
GRIGIO 2 53 
VERDE CHIARO II 
AZZURRO H 
GRIGIO 3 :: 
RVS OH a 
RVS OFF ■ 
CURSORE su n 
CURS. GIU- » 
CURS. DESTRA « 
CURS. SINISTRA II 
HOME 3 



1.1 Orologio 


Orologio: lista delle variabili 


1. Programmi utili 
e compatti 


I programmi contenuti in questo libro sono pensati per essere posti 
al lavoro su una quantità di applicazioni di una certa importanza. 
Dato che molte delle applicazioni sono complesse, tali risultano an¬ 
che molti dei programmi. Ciò non significa che dei programmi utili 
non si possano comprimere in uno spazio limitato. A scopo intro¬ 
duttivo verso l’approccio adottato, questo capitolo presenta tre pro¬ 
grammi relativamente brevi che sono tutt’altro che giochi. 


Questo programma fornisce una piacevole introduzione ad alcune 
delle possibilità del 64, è facile da introdurre, divertente da lasciare 
girare sul TV di casa, e fa buon uso della versatilità di operazione 
sullo schermo e sulle stringhe che è propria del 64. 

Il programma è esattamente ciò che dice di essere, un orologio, ma 
quando viene mandato in esecuzione non vedrete apparire un cer¬ 
chio e delle lancette. L’orologio “64” utilizza due linee che scandi¬ 
scono lo schermo, da sinistra a destra per i minuti e verso il basso 
per le ore, dividendo lo schermo in aree diversamente colorate. Tut¬ 
to ciò è possibile solo dal momento che il 64 possiede una versatile 
funzione di conteggio del tempo che si può inizializzare e leggere in 
modo diretto dall’interno del programma. 

1C Indirizzo d’inizio della memoria dei colori 

DTS Adattamento formattato di TI$ 

H Valore dell’ora in unità dello schermo 

M Valore del minuto in unità dello schermo 

Ml$ M2$ Stringhe di due colori che mostrano i valori dell’o¬ 

ra e del minuto 

IS Indirizzo d’inizio dello schermo 

TI$ Variabile di sistema contenente il tempo scandito 

dall’orologio interno 
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MODULO 1.1.1 


Commenti 


11000 REM#####*####**##*###########* 
11010 REM INIZIRLIZZ. ORE E SCHERMO 
11820 REM########################### 

11030 POKE 53280,0 :POKE 53281,1 

11040 INPUT "^««INTRODURRE L/ ORA <01-12 

>: ";H$ 

11050 INPUT "^INTRODURRE IL MINUTO ESflT 
TO <00-59) : " M$ 

11060 TIf=H$-H-1$+"00" 

11070 PRI NT " DSii 5 10 15 28 25 30 35 4 
0 45 50 55 68 " 

11080 IS=1024 : 10=55296 ; FOR 1=0 TO 24 
11090 POKE IC+40# I0 : POKE IS+40# 1, 160 
11100 POKE IC+40#1+1,0:POKE IS+40#1+1,16 
0 

11110 POKE IC+40#I+38,0 : POKE IS+40#I+38, 

16 0 

111 20 POKE IC+40#I+39,8•POKE IS+40#I+39, 

160 

11130 NEXT I 

11140 FRINT"3" : FOR 1 = 1 TO 11 : PRINT"S"; MI 
n$ < STR$ < I ), 2 ) •• PR I NT : NEXT I 
11150 PR I NT " 3" ; MI Pf- < STRT < I ) ,2)1 

Questo modulo permette all’utente di introdurre le ore e i minuti 
(orologio con formato di 12 ore), inizializza il contatore e mostra 
quindi il quadrante dell’orologio. 

Linea 11030: due utili locazioni di memoria: 53280 ridefinisce il co¬ 
lore del bordo intorno allo schermo, 53281 impone il colore di fon¬ 
do dello schermo. Entrambe si possono riportare istantaneamente 
alle condizioni iniziali nel corso di un programma. In questo caso 
il bordo appare nero e lo schermo bianco. 

Linee 11040-11060: le ore e i minuti sono inseriti nel formato di due 
cifre. Vengono sommati tra di loro con l’aggiunta di 00 per i secon¬ 
di. Si dice al sistema che questo è T1S e immediatamente il sistema 
riposiziona l’orologio interno per contare da quell’ora. 

Linea 11070: viene pulito lo schermo, il colore dei caratteri posto 
a nero e attivata l’inversione, quindi lungo il lato superiore dello 
schermo vengono stampati i numeri. 

Linee 11080-11130: ai lati dello schermo vengono ora posti i bordini 
neri dell’area dell’orologio. Quando si stampa all’estremità dello 
schermo, è spesso più conveniente porre i caratteri sullo schermo tra¬ 
mite una POKE, dal momento che ciò evita che la posizione di stampa 
salti alla linea successiva. Per portare a termine una POKE sullo 
schermo con esito favorevole, bisogna trattare due locazioni: una 
entro la memoria di schermo stessa (indirizzi 1024-2023) e la secon¬ 
da nella memoria colore (55296-56295). Tutto quello che fa questo 
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ciclo è di attribuire il codice carattere 160 (spazio inverso) ai primi 
e agli ultimi due caratteri delle 25 linee dello schermo e il codice 0 
alle corrispondenti locazioni della memoria colore, cosa che anneri¬ 
sce quelle posizioni. 

Linea 11140: si posiziona il cursore in alto a sinistra e lungo il lato 
sinistro dello schermo vengono stampate le ore. L’ultimo valore viene 
stampato separatamente seguito da un punto e virgola, in modo da 
non far scorrere verso l’alto lo schermo, dal momento che si trova 
sulPultima linea. 

Collaudo del modulo 1.1.1 Inserite la linea temporanea 11160 GOTO 11160 e mandate in esecu¬ 
zione il modulo. Vi si richiederà d’inserire le ore e i minuti, appari¬ 
ranno quindi sullo schermo i bordi del quadrante dell’orologio. La 
linea temporanea fa sì che lo schermo non scorra verso l’alto per 
stampare READY, una volta terminato il modulo. 


MODULO 1.1.2 


12000 

12010 

12020 

12030 


REM CALCOLA E VISUALIZZA ORA 
R E M * * + * * * % % * M * * * $*.+; * $ * $ % M .+• * * $ * 

M=INT<<VALC MI M< TI $, 3,2)> +u.8>*3/5 


') 

ì 2040 H=2*VAL<MID$< TI$ , 1,2>> 
12058 IF f1>=30 THEN LET H =1-1+1 
12060 IF H>=24 THEN LET H=H-24 
12070 IF M=0 THEN LET 11=1 
12080 MI$="filisi 


12090 LET M1 $=LEFT$ C M1 1 , M+4 > + " +RIGHT $ < 
m$, 36 -M> 

12100 M2$="*»E3 


12110 LET M2$=LEFT $(M2$,M+4 > + "a"+RIGHT$< 
M2$,36-M> 

12120 PRI NT " il?]" ; 

12130 IF H>0 THEN FOR 1=1 TO FLPRINTM1T■ 
NEXT I 

12140 IF H<23 THEN FOR I=H+1 TO 23:FRINT 
(12$: NEXT I 
12150 PRINTM2$; 

12160 PR I NT " *SSsMi>M«i!!M?*l»liÌ*Ì»ÌÌÌ»»»ÌÌÌ»I 

12170 DT$=LEFT$-::TI$,2> + " "+MID$ai$,3,2 

>+" "+RIGHT$<TI$>2) 

12180 FOR 1 = 1 TO LEN(DTf) : FRI NT MID$€DT$ 
iI/l);"KH";= NEXT I 
12190 GOTO 12030 


i 

Questo modulo ricava dall’orologio interno i valori necessari per crea¬ 
re il display e mostra l’ora in due forme differenti. 
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Commenti Linea 12030: una volta tracciati i bordi, sullo schermo ci sono 36 
spazi disponibili, dunque il numero dei minuti va diviso per 60/36 
(5/3) per ottenere la conversione in unità di schermo. 

Linea 12040: sono disponibili 24 linee, così tutto quel che c’è da fa¬ 
re è moltiplicare le ore per 2. 

Linea 12070: il programma è progettato per indicare sempre i minu¬ 
ti, così, in coincidenza con l’ora, il valore dei minuti viene incremen¬ 
tato per mostrare un’unità. 

Linea 12080: Ml$ viene posta uguale a due spostamenti a destra del 
cursore, più il carattere di controllo per il colore porpora e il carat¬ 
tere di controllo per attivare l’inversione, seguito da 36 spazi. Se stam¬ 
pata, questa stringa produrrebbe una linea in colore porpora. 

Linea 12090: M1S viene ora modificata in modo da contenere i pri¬ 
mi quattro caratteri di controllo seguiti da M spazi, quindi un ca¬ 
rattere di controllo per il rosso seguito dagli spazi rimanenti. Ciò 
crea una nuova stringa che cambia colore ad un punto definito dal 
valore di M. 

Linee 12100-12110: lo stesso procedimento si segue con M2S, che ini¬ 
zierà in blu e terminerà in bianco. 

Linee 12130-12150: Ml$ viene stampata per tante linee quante sono 
le ore; M2$ viene stampata per le linee rimanenti. Le due stringhe 
definiscono così un confine tra aree di colore diverso, imposte dal 
valore di H. 

Linea 12160: si riporta il cursore in alto a sinistra e si sposta la posi¬ 
zione di stampa verso il basso di circa un terzo fino alla penultima 
colonna, con colore impostato sul nero. 

Linea 12170: DT$ viene ora definita come TI$ con raggiunta di due 
spazi inseriti tra i valori dell’ora, dei minuti e dei secondi. Nel corso 
dell’esecuzione, il sistema ha continuato ad aggiornare Tl$, che quin¬ 
di contiene sempre l’ora esatta. 

Linea 12180: DT$ viene stampata verticalmente lungo il lato destro 
dello schermo. La stampa in verticale si ottiene con il metodo di scri¬ 
vere carattere per carattere, ogni volta spostando il cursore di una 
posizione indietro e di una verso il basso. 

Collaudo del modulo 1.1.2 A questo punto il vostro orologio dovrebbe essere pronto a funzio¬ 
nare, con quattro diversi rettangoli colorati che segnano le linee del¬ 
le ore e dei minuti. L’ora viene inoltre mostrata numericamente sul 
lato destro dello schermo. 

Detto quello che dovrebbe fare, quasi inevitabilmente ci saranno degli 
errori in ciò che avete introdotto. E se non in questo, nei program¬ 
mi successivi. Dal tipo di domande che mi vengono poste, mi sem- 
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bra che molti possessori di microcomputer incontrino notevoli dif¬ 
ficoltà per mettere a punto un metodo di ricerca ed eliminazione de¬ 
gli errori (debugging) e con tutta probabilità alcune indicazioni fon¬ 
damentali possono risultare utili: 

1) Fate in modo di utilizzare al meglio ogni tipo di aiuto. Se com¬ 
pare un messaggio d’errore, assicuratevi di tenerlo in giusto conto, 
prendendo nota del tipo di errore e della linea dove ha avuto luogo. 

2) Non tentate di fare eseguire il programma una seconda volta se 
non ha funzionato la prima. Se dovesse effettivamente funzionare, 
vi trovereste in una condizione peggiore di quella iniziale, avendo 
per il momento perso ogni possibilità di scoprire gli errori. 

3) Usate il modo diretto (comandi inseriti direttamente dalla tastie¬ 
ra, invece che come linee di programma) per far stampare i valori 
di tutte le variabili delle linee che appaiano contenere errori. Un va¬ 
lore privo di senso spesso vi darà l’indizio risolutivo su quello che 
non sta funzionando. Un’incredibile quantità di errori quasi intro¬ 
vabili discende da un semplice errore di scrittura del nome di una 
variabile, come il battere per esempio un 1 al posto di I. 

4) Seguite il programma mentalmente o per iscritto, usando valori 
semplici, in modo da poter vedere esattamente quello che dovrebbe 
fare in ogni istante. 

5) Non siate avventati nell’introdurre una modifica, finché non sie¬ 
te sicuri che è l’unica che volete apportare. Una volta alterata una 
linea, tutti i vostri dati spariscono, e con questi ogni possibilità di 
ulteriori prove senza eseguire nuovamente il programma. 

6) Salvate regolarmente il programma, quando scoprite degli errori 
e/o aggiungete nuove linee. Numerosi errori nei programmi defini¬ 
tivi si possono ascrivere a variazioni apportate nel testo del program¬ 
ma, ma alla fine mai registrate su nastro. Tutti i miei programmi 
iniziano con le seguenti tre linee: 

1 GOTO 3 

2 SAVE “XXXX”: STOP 

3 REM 

Queste fanno sì che sia possibile salvare i programmi tramite il co¬ 
mando GOTO 2 (posto di aver sostituito “XXXX” con il nome del 
programma). Un beneficio marginale è che posso sempre iniziare 
un’esecuzione con GOTO 1, invece di dover ricordare il primo nu¬ 
mero di linea del programma principale. 

Tutti fanno errori nel progettare e battere un programma, la diffe¬ 
renza sta solo nel modo in cui si impara a trattare i propri errori 
con competenza. 

Riepilogo Che questo orologio vi piaccia o meno, è solo una questione di gu¬ 
sti. Personalmente lo trovo abbastanza gradevole. Al di là dell’oro¬ 
logio, tuttavia, le tecniche di frammentazione delle stringhe e di PO- 
KE delle memorie di schermo e di colore contenute nel programma, 
si dimostreranno utili in una varietà di applicazioni. Vale dunque 
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la pena d’inserire il programma e di assicurarsi di comprenderne ap¬ 
pieno il funzionamento. 


1.2 Grafica 


Se volete farvi un’idea di questo programma, non c’è niente di me¬ 
glio che gettare uno sguardo alla scatola in cui era imballato il vo¬ 
stro 64. Su questa troverete una colorata rappresentazione tridimen¬ 
sionale a barre: quello che segue è un tentativo di riprodurre il pro¬ 
gramma che ha generato quella figura. 

Dico tentativo, dato che, riproducendo la figura sulla scatola, ho 
scoperto che i dati forniti per l’elaborazione erano stati attentamen¬ 
te scelti per nascondere le limitazioni che sorgono in caso di barre 
molto ravvicinate. Dati diversi conducevano i caratteri grafici costi¬ 
tuenti le barre a scontrarsi con le barre adiacenti, rendendo il tutto 
molto meno gradevole del disegno sulla scatola. 

Perciò questo programma è un compromesso, in grado di produrre 
immagini meno intricate, ma funzionante per qualsiasi insieme di 
dati con risultati sempre ugualmente soddisfacenti: tanto che, quando 
avrete terminato d’inserirlo, sarà il tipo di programma che vi farà 
chiamare tutti i parenti per impressionarli con la vostra magia. 
Utili e colorate, le figure prodotte troveranno senza dubbio diverse 
applicazioni. Inoltre il programma fornisce una visione introdutti¬ 
va su come salvare i dati su nastro per caricarli successivamente. 


Grafica: lista delle variabili CO$ 

F$ 

Fl$, F3$ 
F2$ 

HH(2,6) 

NB 

ND 

NO$ 

NV$(2) 

TT$ 

UV 


Stringa di tre caratteri utilizzata per stabilire il co¬ 
lore delle diverse barre sul grafico 
Stringa di formattazione composta da caratteri per 
lo spostamento a destra del cursore 
Stringhe di formattazione composte da caratteri per 
lo spostamento del cursore verso il basso 
Stringa temporanea ricavata da F$ 

Matrice contenente i dati per il grafico 

Numero di banchi uno di fronte all’altro (1-3) 

Numero di colonne sull’asse orizzontale (1-6) 

Nome dell’asse orizzontale 

Nomi di ogni singolo banco 

Stringa temporanea usata per formattare la stampa 

dei nomi dell’asse verticale 

Numero rappresentato da ogni unità dell’asse 

verticale 


MODULO 1.2.1 11000 

11019 REM INTRODUZIONE DhTI 

11020 PEmwmMmMMmmmMMMmm 

11030 F'OKE 53281.. 15 ; INPUT NECE3SR 

RIO CARICARE DHL NASTRO <S/N>:";Q$ 

11840 IF Q$="S" THEN 12420 
11050 PRlNT M :iP*»»S8iÌl»|i*»ll:«3RAFICO" 
11060 FRI NT "ASSONO PRESENTI 19 UNITA' - VE 
RTICALI." 
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11070 PRINTINTRODURRE IL VALORE RAPPR 
ESENTATO DO " 

11080 INPUT ' OGHI UH I TR : " ; UV 

11098 INPUT" PILONE DELL'' ASSE ORIZZONTAL 

E" ;NO$ 

11108 PRI NT " IIpUS I POSSONO AVERE DA UNA A 
SEI COLONNE" 

11110 INPUT"QUANTE NE SERVONO ; ";NB 
11120 PR I NT " mm I POSSONO AVERE DA UNO A 
TRE BANCHI" 

11130 INPUT"QUANTI NE SERVONO: ";NB 
11140 FUR 1=0 TO NB-1 

11150 PRI NT "PINONE DELL-' ASSE VERTICALE" 

;I + l;: INPUT NVf<I>:NEXT I 
11160 DIN HH<2,6> 

11170 PR1NT"21"; : POR 1=0 TO NB-1 
11180 FOR J=1 TO NB 

11190 PRINT"«INTRODURRE IL VALORE DELLA 
COLONNA "; I +1 ;J J":"; : INPUT T 
11200 IF I NT (. T/UV >>19 TI-IEN FRI NT" «VALORE 
TROPPO ELEVATO.GOTO 11190 
11210 HHa,J>=T NEXT J, I 

Lo scopo di questo semplicissimo modulo è di permettere l’introdu¬ 
zione dei dati che si useranno per costruire e marcare ( label) il grafi¬ 
co. Invece di chiedere all’utente il numero massimo e minimo della 
gamma di valori, per poi calcolare le unità di misura (cosa che può 
portare a valori molto strani), il programma domanda all’utente di 
specificare quante unità dei dati introdotti saranno rappresentate da 
ogni spazio unitario verticale sul grafico. Si assegnano dei nomi al¬ 
l’asse orizzontale e ai banchi di colonne tridimensionali, a comin¬ 
ciare dal fondo. Alla fine vengono richiesti i dati conformemente 
alla struttura scelta. 

Collaudo del modulo 1.2.1 È semplicemente questione di far “girare” il modulo per controlla¬ 
re che sia esatta la sintassi. Non si può ancora disegnare niente. 

MODULO 1.2.2 12000 REN#######**#*##*#####*##*##**#* 
12010 REM DISEGNO GRAFICO 

12020 

12030 PQKE53281,0 : PR I NT " :jRPMPM«5MeMtìPMtì 
«p.MpIpM«" .: 

12040 F$="W»**r 

12060 FOR 1 = 1 TO 4: FRI NT F 

T : F$=F$+"M":NEXT 

12070 FRI NT "&ÌÌUla(_____ 

__«__" :REM LINEA DI 30 CON & P 

12080 FOR 1 = 1 TO 1 9 : PR I NT " FiRiiL." ; 

12090 FRINT " 

J":NEXT 
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12100 FRI NT "»";:FOR 1 = 1 TU 4: FRI NT "jSWM 

12110 FRINÌ' " .-_ _ _ _:_ 

: NEXT: REM LINER DI 23 CON & P 

12120 fi %-"Tsmmmmmtommmsm' ■ f*=" mus 

: CO$=" 171*3" 

12130 FRI NT 11 ' 1 , 

\-m 

12140 FOR H=0 TU NB-1 SPRINT "SKllMiiiir; 
MIB$CF$, 1,2*(H+1>>;MID$<CQ$,H+l,1>, 

12150 TT$=NV$<H>+" *"+STR$OJV> ; FOR 1=1 T 
0 LEN(TT$ ) 

12160 PRI NT MI D$ ( TT$ ,1,1 >, " IDSI" ; NEXT I, H 
12170 PR I NT " »i»HUKNIl 58ir««!Mp;Wl 0iil«PMtì?K 

12130 F3*»F1$:F0R H=0 Tu NE-SPRINT MID$ 
< CU$,H+l,1 ) 

12190 F2$=LEFT*CFT,8+4* <HD-1> +H >:PRINT F 
1$.:F2$; 

12200 FOR I=ND TU 1 STEP-1:IF INT<HH<H,I 
>/IJV>=0 THEN 12270 
12210 FOR J=1 TU INT(HH < H,I>/UV > +H 
12220 IF INT(HH<H, i::-/IJV>=0 THEN 12278 
12230 IF J=1 THEN FRINT "USI T';MID$CCO$, 
H+l, 1>; "I min"; 

12248 IF J>1 THEN FRI NT " ! $ Snilil"; 
12245 REM I CARATTERI SONO " i. . S.l . . 

n. il. sui. il"; 

12250 NENT J 
12268 FRI NT" m ’l" 

12278 FRINT :F2$=LEFT$CF2$,LENCF2$>-4> : PR 
INT F1$;F2$; ; NEXT I 
12280 F1$“F1$+"M" 

12298 F2$=LEFT$< F$ ,9+4* <ND-1)> : PRINT F3$ 
;F2$.i 

12300 NEXT H 

12310 FOR 1=1 TU ND : PRINT F3T, 

12328 F2$=LEFT$<F$,9+4* <1-1>>:PRINT F2$, 

: FOR J=1 TO NB 

12338 IF J>1 OR HH(2,I-1)=0 THEN FRINT " 

rshh" ; 

12340 FRI NT " NEXT J, I 
12350 GET H$ ; IF fi$="" THEN 12350 


Questo è un modulo “disonesto”, basato non su un qualsiasi chia¬ 
ro insieme di metodi, ma semplicemente sulle condizioni che, in pra¬ 
tica, ho scoperto debbono essere soddisfatte per completare una pia¬ 
cevole rappresentazione della figura. 



Commenti 


Linee 12040-12060: si annerisce lo schermo e viene colorata la base 
marrone su cui posa la figura. 

Linee 12070-12110: viene tracciata la griglia che circonda l’area del 
grafico, verticalmente lungo i lati vengono segnate le unità di misu¬ 
ra, mentre orizzontalmente vengono poste delle linee per segnare i 
cinque livelli unitari. 

Linee 12140-12160: queste tre linee determinano una posizione di 
stampa nell’angolo superiore destro dello schermo, dove stampano, 
nei colori corrispondenti e in senso verticale, i nomi dei tre banchi. 
La posizione sullo schermo viene determinata tramite uno spezzone 
di F$, mentre il colore dipende dalla stampa di uno, diverso per ogni 
iterazione del ciclo, dei tre caratteri di controllo colore. 

Linee 12180-12300: in questa sezione vengono visitati tre cicli. 11 ci¬ 
clo H stabilisce quanti banchi verranno tracciati uno davanti all’al¬ 
tro; viene inoltre utilizzato per estrarre un carattere di controllo del 
colore da CO$ e per determinare quanti caratteri spostamento verso 
il basso del cursore verranno stampati, muovendo dunque in conse¬ 
guenza i banchi in senso verticale. 11 ciclo I controlla il numero di 
colonne da stampare attraverso lo schermo; il ciclo J l’altezza di ogni 
singolo blocco tridimensionale. 

Linea 12190: si calcola, a seconda del banco, la posizione iniziale 
di stampa in senso orizzontale (vengono tracciati da destra a sini¬ 
stra) — ogni banco si muove in orizzontale di una posizione, dando 
un aspetto tridimensionale ai tre banchi. 

Linea 12200: non si procede al disegno della colonna se l’elemento 
interessato nella matrice HH vale zero. 

Linee 12230-12240: alla base di ogni colonna viene stampato il sup¬ 
porto inclinato che la fa sembrare appoggiata alla superficie. 

Linea 12260: una volta raggiunta l’estremità superiore della colon¬ 
na, viene aggiunta la cima inclinata. 

Linea 12270: per la colonna successiva vengono sottratti quattro ca¬ 
ratteri dalla stringa di spostamento a destra del cursore, definendo 
così la nuova posizione di stampa. 

Linea 12280: prima di stampare il banco successivo, si sposta verso 
il basso la posizione di stampa verticale. 

Linee 12310-12340: con la stampa dei banchi, si sono rovinate le ba¬ 
si delle colonne. Ora vengono riempite. 

Linea 12350: la figura rimane sullo schermo fino a che non si preme 
un tasto. 
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Collaudo del modulo 1.2.2 


MODULO 1.2.3 


Commenti 


Ancora una volta, è semplicemente questione di eseguire il program¬ 
ma c controllare l’esattezza della figura risultante. In caso di pro¬ 
blemi, la soluzione è di ridurre a uno il numero di banchi, eventual¬ 
mente anche quello delle colonne, per semplificare l’analisi di ciò 
che sta andando storto. 

Osservate separatamente la funzione di ogni singolo ciclo per deci¬ 
dere quale sia responsabile dell’errore. È questo un modulo sul qua¬ 
le può risultare frustrante eseguire il debugging, così, se ritenete che 
una modifica possa essere di giovamento, apportatela pure e prova¬ 
te, anche se non siete in grado di stabilire in che modo vi siete di¬ 
staccati dal listato qui fornitovi — niente è sacrosanto in questo li¬ 
bro, qui o altrove. 

12360 INPUT NECESSARIO SALVARE i 

DATI <S/N) • ",Q$ IF Q$=”N" THEN END 
123T0 INPUT "«POSIZIONARE IL NASTRO* QUI 
NDI PREMERE 3RETURN*--", Q$ Rf=UHRf <13;> 

12330 OPEN 1*1,1,"GRHFICO" 

12330 PR1 NT# 1, NE, R$.; ND, R$ :■ HOT, R$, UV 
12400 FOR I =U T0 HE-1 PR I NT# 1, NV$ < L .:* POR 
J=0 TO NII : PR I NT # 1, HfK I, J> NE NT J . I 
12410 CLOSE 1 ENI) 

12420 INPUT "^«POSIZIONARE IL NASTRO, Q 
UINI!I PREMERE SRETURNH-Q$ : DIM NV$<2■ 

12421 DIM HH<2,6) 

12430 OPEN 1,1,0,"GRAFICO" 

12440 INPUT#1,NB,ND,NOf,UV 
12450 FOR I =0 TO NB-1 • I NPUT# 1, NV$ I > : FOR 
•J=0 TO ND : I NPUT# 1, HH < I, J > NEXT J, I 
12460 CLOSE1 ; GOTO 12000 
12470 GOTO 12470 

Ora che avete definito la vostra figura, invece di perdere i dati e do¬ 
verli poi reintrodurre, potete immagazzinarli su nastro. Questo mo¬ 
dulo ve ne darà la possibilità, e potrete così richiamarli in seguito. 
11 modulo c progettato in modo da rendere Timmagazzinamento su 
nastro il più facile possibile, dal momento che vi dà il tempo di po¬ 
sizionare correttamente il nastro, prima d’iniziare il processo di sal¬ 
vataggio o caricamento. 

Linea 12380: questa linea apre un file , un luogo dove vanno posti 
i dati; in questo caso il luogo d’immagazzinamento sarà il registra¬ 
tore a cassette. I tre numeri rappresentano: 

a) il numero del file — qualsiasi istruzione per memorizzare qual¬ 
cosa in un file deve citare il numero del file; 

b) il numero del dispositivo (l’apparecchio fisico che deve ricevere 
i dati) — dove 1 rappresenta il registratore a cassette; 

c) il tipo di file — 1 significa che si tratta di un file in cui porre i 
dati, piuttosto che uno da cui raccoglierli. 

NB, ND, NOS e UV vengono posti nel file (sul nastro). Notate in que¬ 
sta sede l’uso della variabile RS. Durante la memorizzazione di dati 
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su nastro, il 64 è un poco schizzinoso sul modo in cui ogni elemento 
viene separato dal successivo — la semplice inserzione di virgole può 
condurre a errori durante il successivo caricamento dei dati. R$ è 
stata definita alla linea 12370 come CHR$ (13), il codice di RETURN, 
e, inserendola tra ogni elemento, se ne ottiene la corretta separazione. 

Linea 12400: le matrici del programma vengono stampate nel file 
una per una. 

Linea 12410: è necessario chiudere (CLOSE) un file quando avete mo¬ 
mentaneamente finito di utilizzarlo. Dimenticando questa operazio¬ 
ne, otterrete un errore quando cercherete di aprire (OPEN) un file 
dotato dello stesso numero. 

Linea 12420: si tratta della parte del modulo che ricarica i dati nel 
64. La sola differenza tra le specifiche dei due tipi di file è che que¬ 
sto è un tipo 0, vale a dire un file dal quale estrarre i dati. 

Linee 12440-12450: vengono qui richiamati i dati che erano stati stam¬ 
pati nel file. Il modo più sicuro per costruire la vostra routine di ca¬ 
ricamento è quello di modificare i numeri di linea della routine SA¬ 
VE e trasformare le istruzioni PRINT in INPUT. In questo modo sa¬ 
rete certi che la routine raccoglierà i dati esattamente nello stesso 
ordine in cui erano stati memorizzati. Se i dati venissero raccolti in 
una sequenza erronea, non solo non avrebbero senso con il vostro 
programma, ma potrebbe anche insorgere un errore nella termina¬ 
zione dell’esecuzione. 

Collaudo del modulo 1.2.3 La semplice prova per questo modulo consiste nel verificare la pos¬ 
sibilità di introdurre dei dati nel programma, salvarli sul nastro e 
poi ricaricarli. 

Riepilogo Questo programma è un omaggio alla qualità del set grafico del 64. 

Una volta inserito, comincerete a comprendere che non è affatto una 
cosa così difficile, per mezzo di cicli e semplici calcoli, disegnare for¬ 
me e oggetti apparentemente solidi in posizioni prestabilite dello 
schermo, e scoprirete che visualizzare in tal modo dati e problemi 
rappresenta un efficace contributo per la loro comprensione e 
soluzione. 


Il programma conclusivo di questo capitolo è un tentativo di forni¬ 
re alcune delle funzioni più semplici di un word processor in un pro¬ 
gramma relativamente breve e non complicato. Naturalmente, il pro¬ 
gramma non è paragonabile a un word processor scritto in codice 
macchina e di fattura professionale, né sarebbe lo strumento che sce¬ 
glierei per scrivere un libro come questo, non foss’altro perché, allo 
scopo, alla Commodore inglese hanno avuto la gentilezza di fornir¬ 
mi una copia del loro eccellente programma Easyscript. Cionondi¬ 
meno il programma funziona, e l’avrei preferito a una macchina da 
scrivere in numerose applicazioni, a causa della versatilità che offre 
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nello stendere e modificare un testo prima di porlo definitivamente 
sulla carta. Naturalmente, se non possedete una stampante, dovete 
precipitarvi a comperarne una, per poter avere il massimo dal 
programma. 


Testi: lista delle variabili a$ 

CH 

FNA(P) 

FNB(P2) 


LL 

P 

P2 

PL 

SP 

SS 

T$ 

Tl$ 

TEXTS(500) 

TT$ 

X 


Linea di testo da introdurre 
Codice del carattere sotto il cursore lampeggiante 
Calcola la posizione in memoria del cursore lampeg¬ 
giante nel testo da introdurre 
Calcola la posizione in memoria del cursore di cor¬ 
rezione e modifica ( edit) nel corpo principale del 
testo 

Numero di lince nel corpo principale del testo 
Posizione del cursore lampeggiante nella linea da 
introdurre 

Posizione del cursore di edit sullo schermo 
Numero della linea del cursore di edit nel corpo prin¬ 
cipale del testo 

Numero di spazi disponibili al termine della linea 
durante la formattazione 

Numero della prima linea della parte da visualizza¬ 
re del testo principale 

Ultimo carattere introdotto quando si inserisce una 
nuova linea di testo 

Carattere introdotto come comando nel modulo 

Movimento Linea di Edit 

Vettore principale per l’archiviazione del testo 

Archiviazione temporanea delle linee da introdurre 

nel corpo principale del testo 

Numero delle linee estratte dallo spezzone di testo 

da inserire nel corpo principale 


MODULO 1.3.1 


1 1000 

11010 REM INIZIALIZZRZIOHE 
12000 

12010 PRI NT " :T' ; : DIM TEXT$ < 500 > LL= 1 ! PL= 
12020 TEXT$<0) = "!iì 


12030 text$ <: i >=" liìa^rv 


12040 DEF FNfi*;P) = 1024+20*40+P 
12050 DEF FNE <P2 > = 1024+40#P2 
12060 GOSIJB 14110 


Questo modulo inizializza le variabili principali e pone dei marcato¬ 
ri d’inizio e fine testo all’interno del vettore principale. 


modulo 1.3.2 13000 

13010 REM CORREZIONE LINEA 
13020 REMim^************************ 
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Commenti 


13030 AT=" " 

13040 P=0 : PRI NT " 

; R$ 

13050 CH=PEEK < FNfl < P > > : POKE 54272 fF Nft C P >, 

14 : POKE FNfl<P),160 

13060 FOR TT=1 Tu 5 ; NEXT TT:POKE FNfl<P>, 
CH 

13070 GET TT : IF TT="" THEN GOTO 13050 
13080 IF TT^CHRTC13) OR CLENCRT>>80 AND 
TT=" " ') THEN GOSIJE 14000 = GOTO 13050 
13090 IF TT="t" THEN GOSUE 15000 POKE FN 
E (. PL-SS ), 62 : GOTO 13040 
1310O IF TAND PO0 THEN 13040 
13110 IF T$="<r" AND P=0 THEN P=LEN<AT>-1 
: GOTO 13158 

13120 IF P>8 AND TT=CHRT(20> THEN AT-L.EF 
TT flT-. P-1 > +MI ET<flT, P+1 > ■ P=P-1 = GOTO 13150 
13130 IF TT=CHRTC20) THEN13050 
13140 IF TTO"" AND TTO"H"flNDTTO ,, M"THE 
N AT=LEFTT<AT,P >+TT+MIET<AT,P+1> = P=P+1 
13150 PR I NT !l , AT : I 

F TT="H" ANE P>0 THEN F-P-l 
13160 IF TT="»I" AND PCLENCAT>-1 THEN F-P 
+1 

13170 GOTO 13050 

Lo scopo di questo modulo è di permettere all’utente di introdurre 
e modificare fino a due linee di testo sul lato inferiore dello schermo 
e di correggere le linee in preparazione, per inserirle nel corpo prin¬ 
cipale del testo tramite un modulo successivo. 

Linee 13050-13070: la prima routine con cursore lampeggiante in¬ 
contrata. Basandosi sulla funzione-utente A, queste linee (tramite 
PEEK) controllano la memoria di schermo nel punto definito dalla 
variabile P e stabiliscono il codice del carattere che vi si trova allo¬ 
cato. Nella stessa locazione viene forzato (POKE) uno spazio blu in¬ 
verso, che là viene lasciato per la durata di un breve ciclo di tempo- 
rizzazione, per poi essere sostituito dal carattere originario. Se non 
si è battuto niente dalla tastiera, come indicato dall’enunciato GET, 
il processo viene ripetuto. 

Linea 13080: premendo RETURN, questa linea inserisce la riga cor¬ 
rente nel corpo principale del testo — è necessario un modulo suc¬ 
cessivo. La linea viene inserita automaticamente anche nel caso ec¬ 
ceda la lunghezza di due linee dello schermo e questo potrebbe eli¬ 
minarne i caratteri finali. 

Linea 13090: l’azionamento del tasto 1 permette di accedere a un 
modulo successivo che agisce sul corpo principale del testo. 
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Linee 13100-13110: premendo il tasto con il simbolo della freccia 
a sinistra (all’estremità superiore sinistra della tastiera), il cursore 
si sposta all’ inizio o alla fine della linea, a seconda della sua posi¬ 
zione corrente. 

Linee 13120-13130: posto che il cursore non si trovi all’inizio della 
linea, l’azionamento di DHLETE elimina il carattere immediatamente 
precedente il cursore. Notate che, usando GET, i tasti di controllo 
come DELETE non producono alcun effetto a meno che non venga¬ 
no stampati, cosicché, se non li stampiamo, possiamo ridefinire la 
loro funzione. 

Linea 13140: se il carattere premuto non è una freccia di movimen¬ 
to del cursore, allora si considera un carattere da stampare, e viene 
aggiunto alla stringa nella posizione del cursore. Se il cursore si tro¬ 
va nel mezzo della stringa, il carattere viene inserito in aggiunta — 
non sostituisce cioè il carattere sotto il cursore. 

Linee 13150-13160: la stringa viene nuovamente stampata nella sua 
forma modificata. Se l’ingresso era una freccia di movimento del 
cursore, la posizione di quest’ultimo viene modificata in conseguenza. 

Collaudo del modulo 1.3.2 Inserendo provvisoriamente RETURN alla linea 14000 dovreste po¬ 
ter ora scrivere e correggere un testo sul lato inferiore dello schermo. 

MODULO 1.3.3 14000 

14010 REM INSERZIONE LINER 

14020 REmMMMMMMMmmmwmmm* 

14030 X=8 

14040 IF LEN<fi*><40 THEN TT*<X>=LEFT*<fi* 

, L.EN C fi* ) -1 ) : fì*= " " : GOTO 14070 

14050 F0R 1=40 T0 1 8TEP-1 : IF MIDTvfi*,I, 

1)0" "THEN NEXT 1-1=40 

14060 TT*X> =LEFT$ < fi*, I-1 ) ■ fi*=M I D*(fi*I + 

1) 

14070 X=X+1 ; IF fi*<>" " AND fi*0" " THEN G 
0T0 14040 

14080 FOR I=LL+X TO PL.+X STEP-1 •' TEXT$ (. I > 
=TEXT*(I~X>:NEXT I 

14090 FOR 1=0 TO X~1 :TEXT$<PL+I>=TT$a)': 
NEXT I 

14100 fi*=" ":P=0:PRINT "IT1 :LL=LL+X:PL=P 
L+X 

14110 SS=PL-7 : IF LL-PLC8 THEN SS=LL~15 
14120 PR I NT " '' j fi* ; 

"S8"; ^ IF SS Od THEN SS=0 
14138 FOR I=SS TO SS+15:PRINT ".U"JTEXTSC 
I>; :IF LEN(TEXT*<I))<40 THEN PRINT 
14140 IF I=PL-1 THEN PRINT CHR*<62> 

14150 NEXT I:PRINT "Sii 

" : RETURN 
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Commenti 


Collaudo del modulo 1.3.3 

MODULO 1.3.4 


Lo scopo di questo modulo è quello d’inserire la linea corrente nel 
corpo principale del testo. 

Linea 14040: se la linea da inserire è più corta di 40 caratteri, viene 
posta nella posizione indicata dal cursore > di edit. 

Linee 14050-14070: se la linea da inserire è più lunga di 40 caratteri, 
queste istruzioni compiono una ricerca all’indietro dell’ultima pa¬ 
rola che entrerà completamente in una linea e trasformeranno tutto 
ciò che si trova alla sinistra di questa parola nella prima linea da 
inserire e memorizzare in TTS. AS viene ora posta uguale alla parte 
rimanente e il procedimento viene ripetuto. La variabile X registra 
il numero di linee risultanti. 

Linee 14080-14090: il corpo principale del testo, dal cursore di edit 
in poi, viene spostato per fare posto alle X nuove linee e si provvede 
al loro inserimento. 

Linee 14100-14110: AS viene posta uguale a un singolo spazio, si az¬ 
zera la posizione del cursore lampeggiante e il cursore di edit viene 
posto al disotto delle nuove linee. Si ridefinisce l’inizio della visua¬ 
lizzazione del testo principale in modo da porre il cursore di edit ap¬ 
prossimativamente a metà della parte visualizzata. 

Premendo RETURN, dovreste poter inserire linee di testo nel corpo 
del testo principale. 


15000 REM****************************** 
15010 REM MOVIMENTO LINER Eli IT 
15020 REM****************************** 
15038 P2=PL-SS - 

15040 GET T1$ ; IF TUO"" THEN 15070 
15050 P0KE 54272+FNB<P2 >,S- P0KE FNB<P2>, 
62 : FOR 1 = 1 TO 20 ; NEXT 
15060 P0KE FNB(P2> .• 32 ; GOTO 15040 
15070 PL=PL+<Tlf="H") +10*<T1 $■= "R" > ■ IF PL 
<1 THEN PL=1 

15080 PL=PL-ai$= ,, M">-10*ai$= ,, B ,, >:IF PL 
>LL THEN PL=LI_ 

15090 IF T1 $=CHR $(. 13> THEN RETURN 

15100 IF PL>=LL OR T1$OCHRT(20> THEN 15 

120 

15110 LL=LL~1 ’• FOR I=PL T0 LL=TEXT$<I>=TE 
XT$a +1>:NEXT:TEXT $ <LL+1) = "" 

15120 IF PL-CLL AND T1$="C" THEN R$=TEXT$ 
(PLH" RETURN 

15130 IF TU="P" THEN GOSUB 17000 
15140 IF TU="S" THEN GOSUB 18000 
15150 IF TU="F" THEN GOSUB 16000 
15160 GOSUB 14110 : GOTO 15030 


25 



Commenti 


Collaudo del modulo 1.3.4 

MODULO 1.3.5 


Questo modulo permette di spostare il puntatore di edit lungo il te¬ 
sto principale, permettendo così l’inserimento di linee in varie posi¬ 
zioni. Con questo modulo, l’utente viene inoltre messo in grado di 
chiamare altri moduli per formattare il testo, inviarlo a una stam¬ 
pante o archiviarlo su nastro. 

Linee 15040-15060: routine a cursore lampeggiante per il cursore prin¬ 
cipale di edit. 

Linee 15070-15080: muovono il cursore di edit verso l’alto o verso 
il basso. Spostamenti di una sola linea si ottengono tramite le solite 
frecce per il movimento del cursore. Premendo A o B avrete invece 
un salto di 10 linee. Da notare l’uso delle condizioni logiche per l’e¬ 
secuzione di questi movimenti. L’espressione (TI$ = “A”) vale ze¬ 
ro se la condizione non è verificata e meno uno se è vera, si può dun¬ 
que usare per sostituire in modo pratico un’istruzione IF del tipo 
IF Tl$ = “A” THEN ecc. 

Linea 15090: premendo RETURN si ritorna al modulo di introdu¬ 
zione del testo. 

Linee 15100-15110: premendo DELETE si elimina la linea sotto il 
cursore. 

Linea 15120: premendo C si copia la linea sotto il cursore sulla par¬ 
te inferiore dello schermo per ulteriori correzioni. 

A questo punto dovreste poter muovere il cursore di edit principale, 
cancellare delle linee e ricopiarle sul lato inferiore dello schermo. 


16000 REM#******************#*^r*^***** 
16010 REM FORMATTAZIONE 
16020 

16030 POR 1=1 T0 LL-2: IF TEXT*<I>="" OR 
TEXT*<I+1> = "" THEN 16120 
16040 SP=39-LEN<TEXT*<I)):F0R J=1 T0 LEN 
<TEXT*<I+i>> 

16050 IF MIB*<TEXT*<I + 1>, J, 1K>" " THEN 
NEXT J .J=J—1 

16060 IF SPCJ OR J=LEN<TEXT*<I+1)> THEN 
16090 

16070 TEXT*< I >=TEXT*< I > + " "+LEFT*<TEXT*< 
I + l>, J-l> 

16080 TEXT*CI +1 >*MI II* CTEXT*CI +1 > , J+ 1 > : G0 
T0 16040 

16090 IF LEN C TEXT * < I +1 )> >=SP THEN 16120 
16100 TEXT* CI)=TEXT*CI> + 1 " "+TEXT*<1 + 1> 
16110 F0R .J= I +1 T0 LL : TEXT $ < J >=TEXT * ( J+1 
):NEXT J:LL=LL-1 :PL=PL-1 : GOTO 16040 
16120 NEXT I:RETURN 
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Questo modulo provvede a formattare il testo il quale, cioè, verrà 
rimaneggiato in modo che, qualora la cosa sia possibile, gli spazi 
terminali di una linea vengano riempiti con parole estratte dalla li¬ 
nea seguente. 

Linea 16030: quando nel corpo del testo viene inserita una linea vuo¬ 
ta, questa non verrà formattata. Si possono così utilizzare delle li¬ 
nee vuote in funzione di separazione di paragrafi o di altre linee che 
l’utente non desideri avere collegate. 

Linee 16040-16080: si calcola lo spazio libero alla fine della linea 
e si valuta se all’inizio della successiva sia presente una parola che 
possa entrare in questo spazio — in caso positivo questa viene 
trasferita. 

Linee 16090-16110: se l’intera linea successiva può essere contenuta 
al termine della linea corrente, verrà aggiunta di seguito e TEXTS 
compattata per riempire lo spazio creatosi. 

Collaudo del modulo 1.3.5 Scrivendo nel corpo del testo una serie di linee costituite da una sola 

parola, dovreste ora poter accedere al modo edit del testo, premere 
F e vedere quindi le parole raccogliersi in lince senza soluzione di 
continuità. Potete anche inserire brevi linee nel mezzo del testo per 
poi riformattarlo. 

MODULO 1.3.6 17000 REM#**^4:****f:*:f***#**+'+***+.:t:++'+i** 

17G10 REM USCITA SU STAMPANTE 

17020 && w ** m ** m * m **++ m **** m+m 

17030 OPEN 1 ; 4 : X=1 
17040 IF X=LL THEH 17100 
17056 IF TEXT*<X>="" THEN PRINT#1, "" X=X 
+1 : GOTO 17040 

17060 PRINT#1,TEXT % <X>;" "; 

17070 IF X+1=LL THEN 17100 
17080 PRINT#1,TEXT$<X+1>- IF TEXT$<X+1 > = " 
" THEN PRINTttl > "" 

17090 X=X+2 : GOTO 17040 
17100 PRINT#1,"":CL0SE1 : RETURN 

Questo semplice modulo apre un canale di comunicazione con la 
stampante (dispositivo 4) e stampa il testo principale. 11 testo viene 
stampato in un formato di 80 colonne (cioè due linee dello schermo 
costituiscono una linea di stampa), viene inoltre stampata una linea 
vuota dovunque nel testo originale sia presente una linea vuota. Si 
noti che, benché il programma stesso sia perfettamente in grado di 
trattare caratteri minuscoli (premete contemporaneamente i tasti 
SHIFT e COMMODORE), la maggior parte delle stampanti necessita 
di un apposito comando per stampare effettivamente caratteri mi¬ 
nuscoli. Questo non è stato aggiunto, dal momento che differisce 
caso per caso. Il manuale della stampante in vostro possesso vi darà 
tutte le informazioni necessarie. 
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modulo 1.3.7 13000 REmmmmmmmmmmmmmwm 
18010 REM FILE DATI 

18020 rem 

13030 PRIMI "ntì^POS121ONRRE IL NASTRO, Q 

UINDI PREMERE r-JRETURNII." 

18040 INPUT "IL MOTORE SI ARRESTA IN MOD 
0 AUTOMATICO =";QI: POKE \32,7 - F'OKE 1,38 
18050 PRINT "POSSIEILI FUN21ONI :":PRINT 
" SM1>SALVAIAGO10 HATI" 

18055 PRINT "ÌI2>CARICAMENTO DATI" 

18060 INPUT " iCF'REGO SCEGLI ERE ' " ; Q : ON Q 
GOTO 13080,18120 
18070 RETURN 

18080 POKE 1,7 = FOR 1 = 1 IO 2000 : NEXT 
18090 OPEN 1,1,2,"TESTI":PRINT#l,PL:PRIN 
T# 1,LL 

18100 FOR I=0 TO LL:PRINT#1,TENTI<I>:NEX 
T I 

13110 CLOSE 1 RETURN 

13120 OPEN 1,1,0,"TESTI": INPUT#1,PL,LL 

18130 FOR 1=0 TO LL TENTICI 

18140 GET#1, AI : IF AIOCHRIC13) THEN TENT 

ICI)=TEXTICI>+AI: GOTO 13140 

18170 NEXT I :CLOSE1 : RETURN 

Un normale modulo di file dei dati. 


Riepilogo Le tecniche di cui è stato fatto uso in questo programma, per la ma¬ 
nipolazione di qualcosa che state osservando sullo schermo, giusti¬ 
ficano un certo studio, dal momento che rappresentano il modo più 
facile (per l’utente) di modificare delle stringhe. Si possono quindi 
utilizzare in tutti quei programmi in cui, una volta introdotti dei da¬ 
ti del tipo stringa, si vogliano apportare dei cambiamenti — com¬ 
presi, se lo desiderate, la maggior parte dei programmi di questo libro. 


Testi: lista di tasti-istruzione 


Modo introduzione testo: 

I caratteri del testo si introducono nella posizione del cursore 
lampeggiante. 

Le frecce a destra e a sinistra muovono il cursore lungo la stringa. 
— porta il cursore all’inizio o alla fine di una linea. 

I chiama il modulo di edit. 

RETURN pone la stringa corrente aH’interno del testo principale. 


Modo edit: 
RETURN 
A, B 

DELETE 

C 

P 

S 

F 


Ritorna al modo precedente 

Muovono il cursore di edit di 10 linee in alto o in 

basso 

Elimina la linea sotto il cursore di edit 
Copia la linea sotto il cursore di edit 
Invia il testo alla stampante 
Salva il testo sul nastro 
Esegue la formattazione del testo 
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2. Ausili 

alla programmazione 


Dopo aver visto alcune caratteristiche del 64, ci scostiamo ora mo¬ 
mentaneamente dalla struttura normale di questo libro per presen¬ 
tare tre programmi, estremamente compatti, che vi forniranno de¬ 
gli strumenti essenziali per collegare o fondere programmi diversi, 
rinumerarli e cancellarne agevolmente intere sezioni. 1 programmi 
sono molto compatti per il semplice fatto che sono pensati per es¬ 
sere tra loro collegati, tramite la routine MERGE stessa, e aggiunti 
in coda a programmi esistenti senza occupare troppo spazio in me¬ 
moria. Una volta terminato di aggiungere ulteriori sezioni ai vostri 
programmi e di rinumerarli, la routine DELETE non avrà difficoltà 
a cancellare se stessa e i suoi due compagni! 

Questo programma, insieme agli altri due presentati in questo breve 
capitolo, è assolutamente indispensabile per coloro i quali intenda¬ 
no considerare in modo serio la programmazione modulare. Trami¬ 
te questo piccolo programma, si possono risparmiare ore di lavoro, 
conservando su nastro dei moduli di una certa utilità e semplicemente 
collegandoli tramite l’azionamento di un pulsante del registratore. 
Nel presentare il programma, sono in debito con Steve Beats della 
Commodore inglese, il quale mi ha suggerito l’idea fondamentale 
da cui è stato sviluppato. 

Nel programma non si hanno moduli — con poche linee, difficil¬ 
mente ne sarebbe valsa la pena — e tuttavia un simile programma 
metterà a vostra disposizione la programmazione modulare. 
Quello che fa, è prendere un altro programma (o gruppi di program¬ 
mi o singole sezioni) dal nastro e inserirlo nel 64 senza pericolo di 
perdere ciò che già vi si trovi — a meno che non coincidano i nume¬ 
ri di linea, nel qual caso il primo programma verrà modificato. 

MODULO 2.1.1 61000 END 

63980 INPUT"HOME PROGRAMMA";NT : INPUT" # 
NODULI";N:P0KE679,N 

63981 LL=LEN < NT > : P0KE688 .• LL : FORX* 1TOLL. '■ P 
OKE680+X, RSC < MIDT < NT., X, 1 > > : NE NT 


2.1 Merge 
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Qualora si operi il caricamento di un programma dal nastro nel mo¬ 
do consueto, un eventuale altro programma già residente in memo¬ 
ria verrà cancellato: non è dunque possibile utilizzare LOAD per col¬ 
legare più programmi. 

Iniziamo tuttavia con l’osservare che, per introdurre una linea di pro¬ 
gramma nel 64, è sufficiente scriverla sullo schermo, posizionare il 
cursore in un punto qualsiasi di questa linea, quindi premere RE¬ 
TURN. Questa semplicità ha come contropartita il fatto che la mac¬ 
china automaticamente chiuderà qualsiasi file aperto, perderà sia i 
nomi che i valori delle variabili di qualsiasi tipo (stringhe, interi, ma¬ 
trici, ecc.), perderà gli indirizzi di ritorno delle subroutine, dimenti¬ 
cherà cicli già iniziati, ecc. 

Memorizzando su nastro i programmi da salvare tramite i comandi 
OPEN 1,1,2, “NOME”: CMD1: LIST e chiudendo correttamente il file 
tramite PR1NT#1: CLOSE1, in virtù del comando CMD1, invieremo 
al nastro il listato di un programma correntemente in memoria sot¬ 
to la forma della sequenza di caratteri ASCII che si vedrebbe sullo 
schermo se venisse listato. Il file di caratteri così creato si chiamerà 
“NOME”. (Nella pratica converrà usare nomi tipo M0DUL08, 
M0DUL07, ecc., formati cioè da un nome seguito da un numero, 
curando di utilizzare numeri decrescenti, dal momento che ciò non 
creerà problemi di ricerca sul nastro — con il disco, il problema non 
si pone). 

Le considerazioni precedenti suggeriscono la struttura della routine 
di fusione, che aprirà un file di lettura verso il nastro, leggerà i ca¬ 
ratteri relativi a ogni linea e li stamperà sullo schermo. Raggiunto 
il termine della linea, vi posizionerà il cursore e “premerà” RETURN. 
Occorrerà altresì fare in modo che la routine non dimentichi le va¬ 
riabili necessarie al suo funzionamento e mantenga aperti i file. 




Commenti Linea 61000: dal momento che questo programma, come i rimanen¬ 
ti due di questo capitolo, è pensato per risiedere “in coda” a qual¬ 
siasi altro programma si trovi in macchina, è bene proteggerlo da 
programmi precedenti non correttamente terminati. Per lanciare una 
procedura di fusione, battere GOTO 63980. 

Linea 63980: si domanda all’utente di specificare il nome, comune 
a tutti i programmi da leggere dal nastro, e il numero di questi. Ver¬ 
ranno caricati in sequenza tutti i programmi da NOME (numero più 
elevato) a NOME1 (ad esempio da MODULOS a MODULOl, per nu¬ 
meri decrescenti). 

Linea 63981: vengono salvati in un’area libera, all’inizio della RAM, 
il numero dei moduli da fondere (all’indirizzo 679), la lunghezza del 
nome dei moduli (indirizzo 680), e il nome stesso, carattere per ca¬ 
rattere (da 681 a 681 + LL). L’uso delle POKE si giustifica per la ne¬ 
cessità di proteggere queste informazioni in modo diverso da una 
normale variabile, che andrebbe persa all’introduzione di ogni nuo¬ 
va linea di programma. 

Linea 63982: l’indirizzo 2, normalmente inutilizzato, servirà in se¬ 
guito: gli si attribuisce un valore iniziale. Tutte queste aree di me¬ 
moria non sono interessate né dal programma, né da variabili, va¬ 
riabili di sistema, buffer o altro: rimarranno quindi indisturbate qual¬ 
siasi cosa accada. Di seguito, il criterio di terminazione: il contenu¬ 
to dell’indirizzo 679 viene decrementato di 1 (alla linea seguente) ogni¬ 
qualvolta si inizia il caricamento di un nuovo modulo; raggiunto lo 
0 il programma termina. 

Linee 63983-63984: si decrementa il contenuto dell’indirizzo 679 (il 
numero dei moduli ancora da caricare) e si ricostruisce il nome del 
modulo; gli si appone il numero d’ordine raggiunto e si apre verso 
il registratore a cassette un file di quel nome (Nl$). 

Linea 63986: all’inizio del file si trovano un certo numero di 
CHR$(13), che non ci interessano. 

Linee 63991-63992: si raccolgono dal nastro e si stampano sullo 
schermo i caratteri del listato precedentemente memorizzato. Un 
CHR$(13) indica la fine della linea e il luogo in cui era stato premu¬ 
to RETURN. 

Linea 63993: se la routine è giunta a questo punto, ha rivelato la 
presenza di un carattere di RETURN che, semplicemente stampato, 
non fa altro che mandare a capo la posizione di stampa. Questa li¬ 
nea raccoglie comunque il carattere successivo presente sul nastro 
e lo salva nella locazione 2 della RAM. 

Linea 63995: normalmente la condizione alla linea 63994 è falsa, dun¬ 
que la routine giunge a questa linea. Essendo andata a capo per la 
stampa del CHR$(13) raccolto dal nastro, la routine provvede a stam- 
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pare sullo schermo GOTO 63990 e il carattere di riposizionamento 
del cursore. Lo schermo ha ora questo aspetto: in alto a sinistra, 
il cursore; alla linea seguente, la linea di programma che vorremmo 
caricare; alla linea immediatamente seguente, la scritta GOTO 63990. 
Se ora la routine terminasse, premendo RETURN una prima volta, 
porteremmo il cursore sulla linea di programma da introdurre; una 
seconda volta, introdurremmo la linea stessa e il cursore verrebbe 
posto sulla scritta GOTO 63990. A questo punto avremmo perso le 
variabili e chiusi i file. Un terzo azionamento di RETURN esegui¬ 
rebbe il comando GOTO indicato. 

Linea 63997: vengono forzati nella coda del buffer della tastiera i 
codici “13” relativi al tasto di RETURN e, all’indirizzo 198, il nu¬ 
mero di tasti non ancora valutati da parte del sistema. L’effetto di 
queste POKE è dunque equivalente a tre azionamenti di RETURN. 
Solamente dopo la fine del programma il sistema va ad esaminare 
il buffer della tastiera. Dopo questa linea, tuttavia, la routine termi¬ 
na e il sistema “preme” RETURN per tre volte, introducendo così 
la linea di programma visualizzata e causando l’inizio di un nuovo 
ciclo a 63990. 


Linea 63990: queste POKE servono a superare l’inconveniente della 
chiusura dei file, indicando al sistema che il file logico 1, di lettura, 
verso il nastro, è ancora aperto (cfr. la mappa della memoria del 64). 
Viene inoltre stampato il primo carattere seguente il CHRS(13), che 
era stato salvato nella locazione 2. 

Linea 63994: se il programma da fondere è terminato, dopo il 
CHR$(13) di fine linea si trova un CHR$(10) marcatore di end-of-file. 
Sarà dunque necessario chiudere correttamente il file u> , introdurre 
l’ultima linea visualizzata (come in precedenza) e attivare la ricerca 
del nuovo modulo da caricare, reiniziando cioè alla linea 63982. 


(1) Nel caso del disco, il programma si modifica, per esempio, come segue: 
61000 END 

63980 INPUT"NOME PROGRAMMA",NJ: INPUT" # 

MODULI";N : PGKE679,N 

63981 LL=LEN(N$> : POKE680,LL : F0RX=1T0LL : P 
OKE680+X,ASC<MID*<N$,X,1>>:NEXT 

63982 P0KE2.128 : T=PEEK<679> : IF T=0 THEN 
POKE198,0 : END 

63983 P0KE679,T-l : LL=PEEK<680> ; N$="":FOR 
X=1T0LL:N$=N*+CHR$ < PEEK < 680+X >) : NEXT 

63984 N1$=N*+RIGHT*<STRS<T>,1) : 0PEN8,S,2 
,N1$:A$="" 

63986 GET#8,A$ : IF A$=CHR$<13>THEN63986 

63987 PRINT'TW" : PRINTA*i :Q0T063991 

63990 POKE184,8 :POKE185,2 :POKE186,8 :POKE 
152,1 : PRINT" ntì":PRINTCHRf<PEEK(2> >; 

63991 GET#8,A$ 

63992 PRINTA*J : IF A$OCHR$a3)THEN63991 

63993 GET#8,A*:P0KE2,ASC(A#) 

63994 IFA$=CHR$<13)ORA$=CHR*a0)THENPRIN 
T#8 : CL0SE8 : PRINT"G0T063982H" ; :G0T0 63997 

63995 PRINT"OOTO639909 "ì 

63997 P0KE631,13P0KE632,13 : P0KE633,13:p 
0KE198,3 

e la chiusura del file di lettura risulta indispensabile. 

Sempre nel caso del disco, i programmi andranno salvati con OPEN8,8,2, “0: NOME, 
SEQ, W": CMD8: LIST. Il file andrà poi chiuso con PRINTÌ+8: CLOSE8. 


32 





È necessario l’uso di un nastro di buona qualità, dal momento che 
dei difetti di riproduzione bloccheranno il programma. È necessa¬ 
rio altresì che la versione listata delle linee di programma da fonde¬ 
re non superi la lunghezza di due linee di schermo, altrimenti si avran¬ 
no messaggi di SYNTAX ERROR: evitate dunque un uso esasperato 
delle abbreviazioni. 


2.2 Delete 


Quando si sviluppano programmi che impiegano moduli simili a quel¬ 
li di programmi registrati in precedenza, una cosa utile è poter cari¬ 
care il programma originale, per cancellare solo quelle parti non più 
necessarie alla nuova applicazione. Questa routine di 12 linee vi met¬ 
terà in grado di fare esattamente questo. 

La routine si basa sul modo estremamente chiaro e semplice in cui 
i listati del programma sono disposti nella memoria dei computer 
Commodore. Ogni linea di programma nella memoria inizia con due 
byte di collegamento (link) che specificano l’indirizzo in memoria 
di inizio della linea successiva. Questi sono seguiti da due byte che 
registrano il numero di linea effettivo. La nostra routine scandisce 
i numeri di linea tra un valore iniziale e uno finale, entrambi specifi¬ 
cati dall’utente. Quando si trova l’indirizzo dell’ultima linea da eli¬ 
minare, il programma pone semplicemente l’indirizzo della linea suc¬ 
cessiva nella prima delle linee da cancellare, per puntare alla linea 
immediatamente seguente l’ultima linea da eliminare. L’effetto com¬ 
plessivo è di produrre una singola linea che si estende dall’inizio della 
prima linea da cancellare alla fine dell’ultima. 

Può ora avere luogo la cancellazione, semplicemente cancellando la 
prima linea — tutte le altre la seguono. 


MODULO 2.2.1 


61000 

63700 

CI 

63710 


63 716 
63717 
63720 
63730 
HCLfì) 
63740 


END 

INPUT"PRIMA LINEA DA CANCELLARE:": 

INPUT"ULTIMA LINEA DA CANCELLARE:" 

DEF FNDH<X > =PEEK<X >+256#PEEK<X+1> 
DEF FNHKX )=X AND 255 
DEF FNH2<X > = INT(X/256 > 

LA=2049 

LN=FNDH(LA+2>:IF LNCC1 THEN LA=FND 

GOTO 63730 

DSTART=LA 


63750 LN=FNDH<LA+2):IF FNDH<LA>=0 THEN 6 
3760 

63755 l'F LNOC2 THEN LA=FNDH(LA> : GOTO 63 
750 

63760 POKE DSTART.FNH1< LA > ; PULE DSTART+1 
> FHH2<LA> 

63770 POKE DSTART+4,143 :FOR 1=5 TO 10:PO 
KE DSTART +1,33 : NEXT 
63780 END 
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Commenti 


Linea 63715: questa funzione, che può risultare utile in svariati con¬ 
testi, converte un numero di due byte, del tipo di quelli trattati dalla 
più parte dei calcolatori, in un comune numero decimale compreso 
tra 0 e 65535. 11 numero di due byte ha in realtà base 256, cioè è 
composto da una cifra dotata di un peso massimo di 255 unità e da 
una seconda cifra che vale fino a 255 * 256, nello stesso modo per 
cui 99 vale 9 unità più 9 volte 10. Tuttavia, tanto per confondere 
le idee, le cifre vengono memorizzate a rovescio, con il byte di peso 
più elevato in seconda posizione. 

Linee 63716-63717: queste due funzioni-utente compiono l’opera¬ 
zione inversa, di trasformare un numero decimale in due byte. 

Linea 63720: LA viene posto uguale all’indirizzo iniziale della pri¬ 
ma linea del programma. 

Linea 63730: LN viene posto uguale al valore del terzo e quarto by¬ 
te della linea — il numero di linea — e se questo è inferiore al valore 
della prima linea da cancellare, allora LA utilizza i due byte di col- 
legamento per saltare all’indirizzo iniziale della linea successiva. 11 
procedimento si ripete fino a trovare un numero di linea maggiore 
o uguale a quello della prima linea da cancellare. 

Linea 63740: l’indirizzo iniziale della prima linea da cancellare vie¬ 
ne memorizzato nella variabile DSTART. 

Linea 63750: tramite la funzione FNDH, la variabile LA scorre la 
memoria da un inizio di linea al successivo e in ogni salto la variabi¬ 
le LN viene eguagliata al numero di linea incontrato. Se FNDH tro¬ 
va una coppia di byte contenenti zero, dove dovrebbe trovarsi la cop¬ 
pia dei byte di collegamento, si è raggiunta la fine del programma. 

Linea 63755: ogni volta che si incontra un nuovo numero di linea, 
viene confrontato con quel.o dell’ultima linea da cancellare. Se non 
è stata raggiunta l’ultima linea, si compie il salto successivo. 

Linea 63760: se il programma ha raggiunto questo punto, ha trova¬ 
to l’ultima linea da cancellare e pone con la POKE l’indirizzo della 
linea successiva nei due byte di collegamento di DSTART. 

Linea 63770: il primo carattere del nuovo blocco di una sola linea 
da cancellare viene trasformato in una REM e di seguito a questa 
vengono forzati una serie di punti esclamativi per segnare la linea 
da cancellare. 

La routine ha ora completato il suo lavoro, basta inserire, da tastie¬ 
ra, il numero della linea segnata dalla REM e premere RETURN — 
tutto il blocco, da poche linee a un intero programma, sparirà. 

In pratica, questa routine trova il suo migliore utilizzo in unione al¬ 
la routine di fusione del paragrafo precedente (caricate la routine 
MERGE e aggiungete questa, oppure collegatele insieme per mezzo 
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della MERGE stessa), dato che ciò permetterà di aggiungere la rou¬ 
tine a programmi esistenti dai quali volete estrarre alcune linee evi¬ 
tandone altre. Impiega pochi istanti di esecuzione e può far rispar¬ 
miare un sacco di tasti da premere. 


2.3 Renumber 


Una cosa che tutti desiderano, è avere dei programmi numerati in 
modo ordinato — in qualche modo questo fa la differenza tra un 
programma di aspetto professionale e un altro che appare comple¬ 
tamente trascurato. Usando il programma relativamente breve pre¬ 
sentato in questo paragrafo, potete rinumerare a piacimento, ben¬ 
ché non si possa proprio dire che sia molto rapido e imponga qual¬ 
che limitazione al campo dei numeri di linea ammessi. 

La routine rinumererà qualsiasi programma, comprese le istruzioni 
GOTO, GOSUB, ON... GOTO c ON... GOSUB e i numeri di linea se¬ 
guenti 1F... THEN. Quello che non fa è rilocare il programma in me¬ 
moria: perciò non può aggiungere o togliere cifre a GOTO (ecc.), dal 
momento che questo significa spostare tutta la parte di programma 
seguente gli indirizzi modificati. Non che ciò sia impossibile, o par¬ 
ticolarmente difficoltoso, solo che per avere risultati soddisfacenti 
bisognerebbe far ricorso al linguaggio macchina, cosa che esula dai 
limiti della presente trattazione. 

Dipende da questa limitazione il fatto che tutti i programmi di que¬ 
sto libro, che sono stati rinumerati con questa routine (dove i nume¬ 
ri di linea sono irregolari, è a causa di modifiche introdotte succes¬ 
sivamente), inizino a 11000 , assicurando in tale modo che tutti i nu¬ 
meri di linea abbiano cinque cifre. 

Il modo in cui è strutturato il programma rinumerato si può con¬ 
trollare usando linee per modificare il formato all’interno del pro¬ 
gramma sorgente. Un’attenta osservazione dei programmi di que¬ 
sto libro mostrerà che i moduli iniziano praticamente sempre con 
una REM e che il primo carattere dopo la REM è il simbolo “ 44 :”. 
Il programma di rinumerazione è concepito in modo da iniziare a 
11000 e continuare in passi di 10 fino al raggiungimento di una linea 
del tipo anzidetto, dove si incrementa il numero di linea al migliaio 
successivo. 

Non solo ciò rende i programmi di agevole lettura, ma significa an¬ 
che che potete controllare la struttura del programma da rinumera¬ 
re. Per esempio, disponete di un programma del quale volete utiliz¬ 
zare tre o quattro moduli, ma gli attuali numeri di linea non sono 
confacenti alla struttura che desiderate per il nuovo programma — 
a causa, supponiamo, di insufficiente spazio tra i moduli per fon¬ 
derli con qualcos’altro che avete sul nastro. Inserendo due istruzio¬ 
ni REM il cui primo carattere sia ed eseguendo la rinumera¬ 
zione, aprite automaticamente uno spazio di 2000 dove si trovano 
le REM — per niente complicato! 


MODULO 2.3.1 


63000 

63010 

63013 

63016 


CLR : DI ri ZZ ( 500 ,1 ) : LR=2049 : PP=Lfì 
DEF FNDH<X>=PEEK<X>+256*PEEK<X+1> 
DEF FNH1<X)=X AND 255 
DEF FNH2 <X > = INT(X/256> 
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63050 IF PPOFNBH(Lfì> THEN 63060 
63053 Lfi=FNBHCLR> : : NL=FNBH(LA+2> : IF NL=6 
3000 THEN GOTO 63500 

63058 IF PEEK<LA+5>=143 THEN PP*FNDH<Lfl> 

: GOTO 63053 

63059 PP=PP+4 

63060 IF F'EEK <F'P> 0167 THEN 63070 
63062 8=0:IF PEEKCPP+l>=32 THEN 3=1 

63064 IF F'EEK<PP+1+S><48 OR PEEK<PP+1+S) 
>57 THEN 63200 

63065 GOTO 63076 

63070 IF PEEK<PPX>137 AND F'EEK CPF'> 0141 
THEN 63200 

63076 LET S=0=IF PEEKCPP+l>=32 THEN 8=1 
63080 GG$=" " : FOR 1 = 1+3 TO 5+8 : IF F'EEKCPP 
+ 1X48 OR PEEKCPP+I »57 THEN GOTO 63140 
63085 LET GG$=GG*+CHR$ C F'EEK < PP+1 ) > : NEXT 
63090 GG=VfiLCGG$> : L1=2049 : L2=FNDH<2051> : 
LL** 11000 

63093 IF L2=6300O THEN PRINT"NUMERO DI L 
INEfl NON DEFINITO fl" i NL ; STOP 
63095 IF L2=GG THEN 63100 

63097 L1=FNDH<L1>:L2=FNDHCLl+2>:LL=LL+10 

63098 IF PEEK(L1+4> = 143 AND F'EEK<LI +5> =3 
5 THEN LL=1000*INT CCLL+1000 >/1000 > 

63099 GOTO 63093 

63100 LET ZZ C Z1,0 > =LL : LET ZZ < Z1, 1 > =F'P+S : 

I s “7 I ^ ^ 

63110 IF F'EEK(PP+S+6> =44 THEN F'F-PP+S+6: 
GOTO 63076 
63135 GOTO 63200 

63140 PRINT"COMANDO NON STANDARD ALLA LI 

NEA " j NL : STOP 

63200 PF-PP+1 : GOTO 63050 

63500 LA=2049:LL=10000 

63503 IF PEEK<Lfi+4> = 143 AND PEEKCLA+5>=3 

5 THEN LL=1000*INT <CLL+1000> / 1000> 

63505 IF FNDH(LA+2>=63000 THEN 63600 
63510 POKE LA+2, FNH1 ( LL > : F'OKE LA+3, FNH2 < 
LL> 

63520 LET LL=LL+10 : LET LA=FNDHCLA>=GOTO 
63503 

63600 IF ZI=0 THEN STOP 
63605 FOR 1=0 TO ZI—1 

63610 FOR J=1 TO 5 :POKE ZZ <1,1> +J,ASC(MI 
D$<STR$<ZZ <1,0 > >,J+1> >:NEXT J 
63620 NEXT I 
63650 STOP 
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Commenti 


Linea 63000: la matrice ZZ verrà utilizzata per registrare gli indiriz¬ 
zi delle GOTO, ecc., che devono essere rinumerate e i nuovi numeri 
da assegnare loro. 

Linee 63010-63016: stesse funzioni come nella routine DELETE. Do¬ 
vendo fondere le due, sarà necessario eliminare questa parte. 

Linee 63050-63059: PP è un puntatore che scandisce la memoria al¬ 
la ricerca di GOTO ecc. Comincia all’inizio dell’area di programma 
a 2049. Ogni volta che raggiunge l’inizio di una nuova linea, viene 
incrementata la variabile LA di indirizzo di linea. Il numero di linea 
della linea corrente viene memorizzato in LN e il programma finisce 
di lavorare alla linea 63000 — l’inizio di questa routine. A questo 
punto PP salta al primo carattere della linea. 

Linee 63060-63065: ogniqualvolta viene incontrato un THEN in me¬ 
moria, queste linee controllano se questo sia seguito, o subito dopo 
o intervallato da uno spazio, da un numero di linea. La variabile 
S registra semplicemente la presenza dello spazio. Se il THEN non 
è seguito da un numero, PP continua. 

Lince 63070-63085: se viene trovato il codice di una GOSUB o di una 
GOTO, il programma esegue un controllo per stabilire la presenza 
o meno di uno spazio. Si costruisce CG$ con le cifre delle linee di 
destinazione. Meno di cinque cifre producono un messaggio d’erro¬ 
re alla linea 63140. 

Linee 63090-63099: GG viene posto uguale alla destinazione della GO¬ 
TO o GOSUB. La routine ora scandisce i numeri di linea del pro¬ 
gramma, partendo dall’inizio, in cerca della destinazione. Per ogni 
linea esaminata, la variabile LL viene incrementata di 10, comincian¬ 
do da 11000, e registra così quale sarà il numero di linea una volta 
rinumerato il programma — la linea non può essere rinumerata a 
questo punto, dal momento che un’altra GOTO potrebbe riferirvisi. 
Quando si incontra una REM#, LL si incrementa fino al migliaio 
successivo. 

Linea 63100: a questo punto è stato trovato il numero di linea esat¬ 
to, così l’indirizzo della GOTO viene memorizzato nella matrice ZZ, 
insieme al numero di linea che assumerà (LL). 

Linea 63110: se il sesto carattere dopo la GOTO o GOSUB è una vir¬ 
gola, si suppone che si tratti di una ON... GOTO/GOSUB, PP viene 
fatto avanzare e la nuova linea di destinazione viene raccolta da un 
precedente spezzone della routine. 

Linea 63200: il procedimento continua, con PP che si sposta lungo 
la memoria fino a incontrare la linea 63000. 

Linee 63500-63520: queste linee cominciano all’inizio del program¬ 
ma e ne rinumerano solo le linee (tenendo conto delle REM#). 
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Linee 63600-63650: tutto ciò che resta da fare è estrarre da ZZ l’in¬ 
dirizzo di tutte le destinazioni delle GOTO e GOSUB e inserire le nuove 
destinazioni nei cinque byte che seguono ogni indirizzo — queste sono 
già state calcolate. 

Benché questo programma non regga il confronto per velocità o fles¬ 
sibilità con una buona routine in linguaggio macchina, svolge il suo 
compito, come testimoniano i programmi di questo libro. Se non 
possedete una routine di rinumerazione in codice macchina, preve¬ 
do che ritornerete a questa più spesso di quanto vi succederà con 
praticamente ogni altro programma. 

Una volta fusa con le due precedenti routine, isolate l’una dall’altra 
da istruzioni di STOP, vi sarete costituiti un potente strumento, mul¬ 
tifunzionale, in grado di rendere più piacevole la programmazione 
e più presentabili i vostri programmi. 
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3. Il Commodore 64 
a colori 


Il Commodore 64 mette a disposizione un insieme pressoché stupe¬ 
facente di possibilità grafiche. Le forme e i colori che può disegnare 
sono sufficienti per far fronte praticamente a qualsiasi necessità, e 
certamente bastano per tenere occupato l’artista dilettante per tutta 
la vita. In questo capitolo troverete quattro programmi che vi met¬ 
teranno in grado di esplorare il mondo dei caratteri grafici, dei 
caratteri-utente, delle animazioni e della grafica in bit-map. Quat¬ 
tro soli programmi non possono assolutamente mettere la parola fi¬ 
ne a quello che si può ottenere dal 64, perciò i programmi sono pro¬ 
gettati come strumenti, il cui scopo è di permettervi di inserire nei 
vostri successivi programmi tutte quelle multicolori caratteristiche 
che li solleveranno dalla banalità. 


3.1 Artista 


Pochi micro domestici hanno un insieme di caratteri grafici pari a 
quello delle macchine Commodore. È difficile pensare a qualcosa 
che non si possa disegnare in qualche forma o maniera usando le 
combinazioni di caratteri disponibili da tastiera. Ciò risulta estre¬ 
mamente utile per vivacizzarci programmi, specialmente in combi¬ 
nazione con le eccellenti capacità di gestione del colore del 64. 
Una limitazione a tutto ciò si trova nel processo creativo di sviluppo 
pratico di figure grafiche. Naturalmente questo si può ottenere con 
istruzioni PRINT nel programma, ma ottenere proprio le istruzioni 
desiderate, con una quantità di comandi di colore, comandi di in¬ 
versione e così via, dovendo definire separatamente ogni linea, può 
diventare un lavoro estremamente noioso. Ciò che serve è un modo 
di trattare lo schermo a mo' di cavalletto, dipingendovi caratteri gra¬ 
fici in svariati colori, cancellando, modificando a piacere, per poi, 
ad uso della posterità (o per lo meno ad uso di altri programmi che 
potrebbero utilizzare il disegno creato), salvare il disegno su nastro. 
Il programma seguente cerca di fare tutto ciò. 

Lungo la strada raccoglierete una discreta quantità d’informazioni 
su come manipolare la memoria di colore e di schermo, insieme a 
utili locazioni di memoria per controllare caratteristiche come il co¬ 
lore di stampa. 
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Artista: lista delle variabili CC Posizione corrente del cursore 

CO(3) Coordinate di due angoli del disegno da salvare 

CT Memorizzazione temporanea della posizione del 

cursore 

CU Colore corrente del cursore 

Dl$ Valori dei caratteri del disegno da salvare 

D2$ Valori dei colori dei caratteri da salvare 

D3$, D4$ Copie temporanee di D1S e D2S 
MODO Stabilisce quale caratteristica del colore viene 

indirizzata 

PC Colore del carattere alla posizione PP 

PP Contenuti originali della locazione corrente del cursore 

PT Locazione in memoria dei due angoli contenuti nella 

matrice CO 

MODULO 3.1.1 11000 REM#**^***^**.^*^^^^*^*^*^*** 

11010 REM '/ARIABILI 

11020 REM*************^****^*********** 
11030 R$=CHR$ ( 13 ) 

Piuttosto eccessivo chiamarlo modulo, ma la sua presenza fa sì che, 
se decidete ulteriori sviluppi del programma, sia disponibile un’area 
separata per le necessarie variabili. La stringa effettivamente defini¬ 
ta è un separatore standard nei file dei dati. 

MODULO 3.1.2 12000 REM#^*****^*****^:*##*****#**^** 

12010 REM CURSORE,MOVIMENTO,STAMPA 

12020 

12030 FRINT"n"; 

12040 POKE 650;128 ; GET A$ 

12050 CC-PEEK(211)+256*PEEK C 210)+PEEK(20 
9) : PP-PEEK<CC) : PC=PEEK(CC+54272) 

12060 POKE CC;42 = POKE CC+54272;CU :FOR 1 = 
1 TO 15 :NEXT^ POKECC,PP:POKECC+54272; PC 
12070 IF A$="" THEN 12040 
12080 IF CC> 1983 AND fl$="M" THEN 12040 

12090 IF CO2023 AND THEN 12040 

12100 IF CO 1024 AND THEN 12040 

12110 IF CCC1064 AND A$= ,, T' THEN 12040 

12120 IF A*="rr OR A $=":«" OR A$="ll" OR A 
$="11" THEN PRINT H$; : GOTO 12048 
12130 IF A$=CHR$<133) THEN M0D0=1 

12140 IF A$=CHR$(137) THEN M0B0=2 

12150 IF A$=CHR$<134) THEN M0D0=3 

12155 IF A$=CHR$<138) THEN 12030 

12160 IF <M0D0=1 OR M0D0=2 OR M0D0=3) AN 
D A$="*-" THEN M0B0=M0D0+.5 ; GOTO 12040 
12170 IF fi$=CHR$(135) THEN INV=(INV=0) 

12180 IF A$=CHR$<139) THEN M0D0=6 

12190 IF A$=CHR$(136) THEN M0D0=7 


40 





Commenti 


12200 IF fì$=CHR$a40> THEH M0D0*8 
12210 IF MODO=l RND A$>="1" AND fl$<="8" 
THEH POKE CC+54272.. VFlL : GOTO 12040 
12220 IFMODOs1.5RHDR$>="1"HNDRTO"8" THE 
N POKECC+54272,8+VfìL < ft$ ;• -1 : GOT0 12040 
12238 IF MODO=2 AND R$>="1" RND R$<="8" 
THEH POKE53281.. VRL<R$ > -1 • GOTO 12040 
12240 IF M0D0-2.5AND R$>="1" RND R$C="8" 
THEH P0KE53281, VRL ( R$ > +8 : GOTO 12040 
12250 IF MODQ-3 RND R$>="1" RHD R$C="8" 
THEH P0KE646, VRL (. R$ ) -1 : GOTO 12040 
12260 IF M0B0=3.5 RHD R$>="1 M RND R$<="8 
" THEH P0KE646 .. 8+VRL < R$ } -1 : GOT0 12040 
12270 IF HO DO 06 OR <H$0"R" AND fì$0"D"fi 
HD fl$0"S") THEH 12320 
12280 IF R$="R" THEH GOSUE 13000 
12290 IF R$="D" THEH GOSUE 13060 
12300 IF R*="S" THEH GOSUE 14000 
12310 CC=CT■GOT0 12040 
12320 IF MUD0=8 RHD R$>="1" RHD R$<= ,, 8" 
THEH CU=VRL C R$ > 1 : GOT0 12040 
12330 IF IHV=-1 THEH PRIHT"S "> 

12340 PRIHT R$; "1" 

12350 GOTO 12040 

Questo modulo è in realtà tutto ciò che serve per trasformare lo scher¬ 
mo in un cavalletto d’artista. Lo scopo è di mettervi in grado di muo¬ 
vere un cursore lampeggiante lungo tutto lo schermo, stampare ca¬ 
ratteri, modificarli, cancellarli, scambiare i colori di sfondo e 
carattere... 

Linee 12040-12070: questa routine definisce un cursore lampeggian¬ 
te controllato dall’utente. 

Linea 12040: questa POKE introduce la funzione di ripetizione in mo¬ 
do che un tasto, se tenuto premuto, continui a stampare lo stesso 
carattere. La seconda parte della linea riceve ogni singolo carattere 
introdotto da tastiera. 

Linea 12050: a CC viene assegnato l’indirizzo di memoria della po¬ 
sizione corrente di stampa. PEEK(211) dà la posizione lungo la linea 
(0-39), mentre PEEK(210) * 256 + PEEK(209) dà l’indirizzo di me¬ 
moria dell’inizio della linea. PP è posto uguale al codice di schermo 
di ciò che occupa attualmente la posizione dove sta lampeggiando 
il cursore. PC è il colore del carattere in quella posizione. 

Linea 12060: si inserisce ora un asterisco, codice di schermo 42, nel¬ 
la posizione dove si vuol fare lampeggiare il cursore e il colore cor¬ 
rente del cursore CU viene inserito nella memoria di colore alla po¬ 
sizione corrispondente. Un breve ciclo di temporizzazione mantiene 
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l’asterisco sullo schermo per un momento, dopodiché vengono ri¬ 
posti nella memoria il carattere (codice PP) e il colore (PC) originali. 

Linea 12070: se non è stato premuto alcun tasto, il ciclo viene 
ripetuto. 

Linee 12080-12110: queste linee controllano che il cursore non tenti 
di uscire dallo schermo quando vengono premute le frecce di movi¬ 
mento cursore. 

Linea 12120: se viene inserito un controllo di cursore che superi i 
test delle 4 linee precedenti, questo viene immediatamente stampato 
e il programma ritorna alla routine di cursore lampeggiante. 

Linee 12130-12200: utilizzando come ingresso i tasti funzione sulla 
destra della tastiera, queste linee danno all’utente la possibilità di 
specificare diversi modi che permettono d’impostare diverse carat¬ 
teristiche del colore. 

Linea 12130: premendo il tasto fi si pone il programma nel MODO 
1. Di conseguenza, l’azionamento di uno dei tasti da 1 a 8 ridefinirà 
il colore di ognuno dei caratteri su cui viene posizionato il cursore. 
11 colore corrisponderà a quello indicato sul davanti del tasto. 

Linea 12140: premendo f2 si attiva la stessa procedura per ridefinire 
il colore di sfondo dello schermo. 

Linea 12150: premendo f3 si ottiene la ridefinizione del colore di 
stampa tramite la stessa procedura. 

Linea 12160: in realtà sono disponibili 16 colori. L’azionamento del 
tasto con la freccia a sinistra (nell’angolo superiore sinistro della ta¬ 
stiera), mentre ci si trova nei modi 1, 2 o 3, ridefinisce il modo in 
maniera che l’azionamento dei tasti 1-8 fornirà il colore normalmente 
ottenuto da quel tasto più il tasto Commodore. La funzione ridefi¬ 
nita sarà la stessa del modo principale. 

Linea 12170: premendo f5 viene attivata o disattivata la funzione 
d’inversione — permettendo così di stampare caratteri inversi. 

Linea 12180: premendo f6 il programma permetterà di salvare il di¬ 
segno creato. La procedura dettagliata verrà spiegata in seguito. 

Linea 12190: f7 non fa nient’altro che ridefinire un modo non atti¬ 
vo. Ciò permette all’utente di stampare i numeri 1-8, invece di ride¬ 
finire una funzione di colore. 

Linea 12200: f8 permette all’utente di ridefinire il colore del cursore 
in uno dei primi otto colori. Particolarmente utile se il colore di 
schermo è stato trasformato in modo tale da rendere il cursore scar¬ 
samente visibile. 
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Collaudo del modulo 3.1.2 


MODULO 3.1.3 


Linee 12210-12220: se il MODO è 1 o 1.5, l’ingresso di colore viene 
posto (POKE) nella locazione di memoria colore del quadratino 
corrente. 

Linee 12230-12240: se il MODO è 2 o 2.5, il nuovo codice di colore 
viene posto nella locazione 53281, che stabilisce il colore di sfondo 
dello schermo. 

Linee 12250-12260: se il MODO è 3 o 3.5, il nuovo codice di colore 
viene posto nella locazione 646, che specifica il colore di stampa 
corrente. 

Linee 12270-12310: quando si è nel MODO 6, questa routine con¬ 
sente il salvataggio di disegni grandi e piccoli. Introducendo R si per¬ 
mette la definizione di un rettangolo di schermo da salvare. D salva 
un disegno di piccole dimensioni, mentre S salva su nastro l’intera 
videata. 

Linea 12310: CT viene utilizzata per salvare la posizione corrente del 
cursore, che potrebbe essere alterata dalla routine di SAVE. 

Linea 12320: se il MODO è 8, il nuovo codice di colore viene memo¬ 
rizzato nella variabile CU. 

Linea 12330: se viene impostata la funzione d’inversione (INV = —l) 
viene stampato il carattere di controllo relativo (RVS ON), inverten¬ 
do cosi il prossimo carattere da stampare. 

Linea 12340: se il programma è giunto a questo punto, qualunque 
carattere battuto viene stampato sullo schermo, seguito dal caratte¬ 
re di controllo di esclusione dell’inversione. 

Dopo l’introduzione di questo modulo, dovreste poter disegnare sullo 
schermo a piacimento, tramite l’intero set di caratteri disponibili da 
tastiera. Tutti i comandi di ridefinizione dei colori dovrebbero ri¬ 
sultare disponibili, ma non sarete ancora in grado di salvare i dise¬ 
gni che realizzate. 

13000 rem****************************** 

13010 REM SALVATAGGIO DISEGNI 

13020 rem****************************** 

13030 GEI T$ '■ IF T$=" " THEN 13030 
13040 IF T$<>" 1 " AND T$0"2"THEN RETURN 
13050 CO <VAL <T$)*2-2 >=PEEK(211):co <VAL <T 
f>*2-1) = INTC<CC-1024)/40): RETURN 
13060 REM****************************** 
13070 CT=CC : POKE 646,CU 
13080 IF CO(0K=CO<2) AND C0<1K=CG<3> T 
HEN GOTO 13110 

13090 PRINT "SRETTANGOLO DEFINITO IN M0D 
0 IMPR0PRIO.";:POR 1 = 1 TO 1000 :NEXT 
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Commenti 


13100 FRINT "3 

"; : RETURN 

13110 IF CCO<2 >-CO<0>-1>*<CO<3 >-CO < 1 >-1> 
<251 THEN 13140 

13120 FRINT "SDÌ SEGNO TROPPO GRANDE."; : FO 
R 1=1 TO 1000 : NEXT 
13130 FRINT"3 

"; : RETURN 

13140 FOR 1 = 1 TO 2:PT*1024+40#CO<I#2--1> + 
CO <I*2-2 >:TC<I>*PT:TC(I+2 > =PEEK<PT> 

13150 POKE PTj 42 : POKE PT+54272,CU : NEXT 
13160 INPUT "SPUNTI CORRETTI CS/N) : ";Q$: 
IF Q$="S" THEN 13170 
13162 FRINT"3 

":FORI = 1T02:POKE TC <I>iTC CI+2 >■NEXT 
13164 RETURN 

13170 Bl$=" " : B2$=" " : FOR I=C0Q> + 1 TO COC 
3 > -1 : F 0 R .J=C 0 ( 0 > +1 T 0 C 0 C 2 > -1 
13180 D1$=D1$+CHR$ <PEEK<1024+40*I+J >>: PO 
KE 1024+40*I+J ..42 

13190 D2$=D2$+CHR$ < PEEK C 55296+40* I + .J ) ) : P 
OKE 55296+40* I+J, 0 ■ NEXT J, I : PR INT "; 
13200 B3$=B1$ ; D4$=B2$ ; FOR I=C0C1>+1 TO C 
0(3>-1 : FOR J*CO<0> + 1 TO C0(2)-l 
13210 POKE 1024+40* I + Ji HSC C L.EFT$ C D3$' il ) > 
:D3*=RIGHT$CB3$iLEN <D3$ >-1> 

13220 POKE 55296+40* I + J i fiSC < LEFTt ( D4$.. 1 ) 
> : D4$=RIGHT$ <D4$.. LEN CD4$>-1) : NEXT Ji I 
13238 PRINT "«QUESTO E' - CIO" CHE VERRÀ" 
MEMORIZZATO." ; FOR X=0 TU 1080 NEXT 
13240 INPUT "POSIZIONARE IL NASTROi QUI 
NDI PREMERE SRETURN*-" ; Q$ 

13258 PRINT"3 

3" i 

13260 OPEN li li li"ARTISTA":FOR 1=0 TO 3 = 
PR I NT# 11 CO< I > •• NEXT : PR INT# 1, LEN<BIT) 

13270 FOR 1=1 TO LEN(DI$>:PRINT#1,ASC(MI 
D$ (BIT. I..l>) R$ ASC < MI D$ < D2$.. 11 1 > > : NEXT 
13280 CLOSE 1 : RETURN 


Lo scopo di questo modulo è di permettere di definire sullo scher¬ 
mo un disegno di dimensioni ridotte, per poi salvarlo in modo 
efficiente. 

Linee 13030-13050: se nel modulo precedente è stato selezionato un 
MODO 6, seguito da R, queste tre linee permettono di accettare un 
ulteriore carattere, che deve essere 1 o 2. Se viene premuto 1, la po¬ 
sizione corrente del cursore viene definita come l’angolo superiore 
sinistro del rettangolo da salvare, 2 definisce l’angolo inferiore de¬ 
stro. In realtà queste due posizioni risultano esterne al disegno da 



salvare, definiscono cioè una cornice esterna a ciò che va salvato. 
Le posizioni in memoria dei due angoli vengono immagazzinate nella 
matrice CO. Da notare il fatto che questa matrice non è stata dichia¬ 
rata, dal momento che ha meno di 10 elementi — semplicemente l’in¬ 
troduzione di un valore la costruirà in modo soddisfacente. CO(O) 
o CO(2) viene posto al valore della posizione del cursore nella linea, 
indicato da PEEK(211). CO(l) oppure CO(3) viene posto a: numero 
di linea schermo + (posizione attuale in memoria — inizio area di 
schermo)/40. 

Linee 13060-13280: permettono di salvare il rettangolo precedente- 
mente definito. 

Linea 13070: il colore di stampa viene temporaneamente eguagliato 
al colore del cursore. 

Linea 13080: viene compiuto un controllo sul fatto di aver definito 
un rettangolo valido (cioè di lunghezza e larghezza determinate). In 
caso contrario, viene stampato un messaggio d’errore. 

Linea 13110: i dati del disegno verranno temporaneamente memo¬ 
rizzati in una stringa, perciò si controlla se esiste la possibilità che 
questa sia troppo lunga. In questo caso viene stampato un messag¬ 
gio d’errore. 

Linee 13140-13160: facendo uso delle coordinate contenute nella ma¬ 
trice CO, sullo schermo vengono posti nuovamente (POKE) gli an¬ 
goli del rettangolo e si domanda all’utente di confermare la corret¬ 
tezza del rettangolo da salvare. 

Linea 13170: vengono inizializzate le due stringhe da utilizzare. 1 due 
cicli si combinano così per significare che verranno letti dallo scher¬ 
mo J caratteri (la larghezza del disegno) per 1 linee (l’altezza del 
disegno). 

Linee 13180-13190: basandosi sugli indirizzi forniti dai cicli, vengo¬ 
no esplorate (PEEK) le memorie di schermo e di colore, e i valori 
trovati vengono sommati alla stringa di memorizzazione sotto for¬ 
ma di caratteri dotati del corrispondente valore di codice. Se stam¬ 
pate, le due stringhe così ottenute non avrebbero senso, si tratta sem¬ 
plicemente di un pratico metodo per memorizzare temporaneamen¬ 
te una serie di valori senza dover stabilire complessi puntatori a una 
posizione di una matrice. Fatto questo, una POKE forza un asteri¬ 
sco nella locazione di schermo e la sua funzione di colore viene po¬ 
sta sul nero, rendendo visibile l’elaborazione del disegno. 

Linea 13200: si ottiene una copia di D1S e D2$; vengono quindi uti¬ 
lizzati due altri cicli per riportare (POKE) sullo schermo i caratteri 
che erano stati memorizzati, contemporaneamente alle rispettive ca¬ 
ratteristiche di colore. Ogniqualvolta un carattere viene posto nuo¬ 
vamente sullo schermo, le due stringhe vengono decurtate del carat- 
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tere più a sinistra, in modo da utilizzare sempre il primo carattere 
della stringa. È questo procedimento di accorciamento a richiedere 
la creazione di una copia temporanea delle due stringhe originali. 
L’unico scopo di questi due cicli è di rassicurare l’utente sul fatto 
che sta correttamente avendo luogo il salvataggio del disegno. 

Linee 13240-13280: il disegno viene salvato su nastro. 

Linea 13260: vengono salvati i valori di CO, insieme alla lunghezza 
di Dl$ (che è uguale alla lunghezza di D2$). 

Linea 13270: un ciclo, pari alla lunghezza di D1S, salva i valori dei 
caratteri di entrambe le stringhe (cioè i valori tratti dalle memorie 
di schermo e di colore). Sfortunatamente non è possibile salvare su 
nastro direttamente le stringhe stesse, dal momento che queste pos¬ 
sono contenere caratteri non stampabili, che il 64 non è in grado di 
salvare sotto forma di stringa. 

Collaudo del modulo 3.1.3 A questo punto dovreste poter salvare su nastro un disegno. Se la 

figura ricostruita risulta soddisfacente, è probabile che l’operazione 
sia stata condotta a termine in modo corretto, ma ciò si può con¬ 
trollare completamente solo dopo aver introdotto almeno il modulo 
principale del programma Parole, che utilizzerà i disegni in tal mo¬ 
do creati. 


MODULO 3.1.4 


14000 REM#*#*#****##******#***#***#**** 
14010 REM SRLVfìTRGGIO SCHERMO 

14020 &&A**wmM.%*Mmm**mm***M.*m 

14030 INPUT"eposIZIOHRRE IL NASTRO, QUIN 
DI PREMERE SRETURNi! " ; Q$ 

14040 PRINT"H 

: OPEN1,1,1,"SCHERMO" 

14050 FORI =0TO999 •' PRI NT# 1, PEEK< 1024+1): P 
RIHTttl,PEEKC55296+1>:NEXT:CL0SE1: RETURN 


Se, nel corso dell’esecuzione del modulo 2, è stato predisposto il MO¬ 
DO 6 ed è stato premuto il tasto S, questo modulo assicurerà il sal¬ 
vataggio del contenuto di tutto lo schermo. Lo scopo viene raggiun¬ 
to con il semplicissimo metodo di controllare i contenuti delle loca¬ 
zioni da 1024 a 2023 (memoria di schermo), più le corrispondenti 
locazioni di memoria del colore, e di salvarne i contenuti. Un suc¬ 
cessivo programma potrà leggere i valori dal nastro e forzarli (PO- 
KE) nelle stesse locazioni. 


Riepilogo Questo programma può risultare molto gratificante, ma il suo mas¬ 
simo contributo è la possibilità di costruire agevolmente complesse 
forme grafiche, modificarle a piacimento e richiamarle semplicemente 
per utilizzarle in seguito per altri programmi. Sulla base delle tecni¬ 
che impiegate in questa sede, non dovreste avere difficoltà per ulte¬ 
riori programmi di vostra progettazione, che richiedano d’interve¬ 
nire con POKE sulle memorie di schermo e colore. 
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Ulteriori sviluppi 1 ) Non è stato previsto il salvataggio del colore di sfondo dello scher¬ 
mo — dovrebbe risultare un’aggiunta di semplice realizzazione. 

2) Perché non inserire sulla linea di fondo cfello schermo un’indica¬ 
zione del modo impostato? 


Artista: fi 
lista delle funzioni dei tasti f2 

f3 

f4 

f5 

f6 

il 

f8 


Ridefinisce il colore del carattere sotto il cursore 

Ridefinisce il colore dello schermo 

Permette di modificare il colore di stampa 

Cancella il disegno corrente 

Attiva o disattiva l’inversione 

Modo di SAVE (salvataggio su nastro) 

Modo inattivo 

Permette di modificare il colore del cursore 
Inserisce il secondo set di colori nei modi 1-3 


Modo SAVE: 

R Seguito da 1 o 2 definisce gli angoli del rettangolo 

da salvare 

D Salva piccoli disegni 

S Salva tutto lo schermo 


3.2 Caratteri 


Indipendentemente dalla bontà del set di caratteri fornito da un mi- 
cro, verrà il momento in cui non sarà disponibile il carattere deside¬ 
rato. Può essere che vogliate scrivere in una lingua che richieda ac¬ 
centi particolari, o stampare astrusi simboli matematici, oppure che 
vi serva qualcosa di speciale per dare il tocco finale al vostro ultimo 
gioco. Qualsiasi sia la vostra necessità, il 64 non aspetta altro che 
di soddisfarla con le possibilità derivanti dai caratteri-utente. 
All’accensione, tutti i possibili caratteri del 64 sono immagazzinati 
nella sua ROM — memoria di sola lettura — in una sezione che ini¬ 
zia all’indirizzo 53248. Ogni carattere è rappresentato da otto byte 
di memoria e la risultante griglia di 8 * 8 punti, che costituiscono 
ciascun carattere, corrisponde ai singoli bit degli otto byte. Se, per 
esempio, gli otto byte di memoria di un carattere valessero 128, 64, 
32, 16, 8, 4, 2, 1, allora, in notazione binaria sarebbero 10000000, 
01000000, 00100000, 00010000, 00001000, 00000100, 00000010, 
00000001. Ponendo ora questi valori in una griglia, otteniamo: 

10000000 

01000000 

00100000 

00010000 

00001000 

00000100 

00000010 

00000001 


1 bit che sono a 1 (o accesi) definiscono un carattere (in questo caso 
una linea diagonale), con ogni bit attivo trasformato in un pixel del¬ 
lo schermo. 
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Va tutto bene, ma, dal momento che i dati del carattere sono me¬ 
morizzati in una ROM, memoria di sola lettura, non possono essere 
modificati — sono predisposti in modo permanente all’atto della fab¬ 
bricazione del chip. Fortunatamente, il 64 fornisce un buon modo 
per aggirare l’ostacolo, ma, per poterlo comprendere, dobbiamo pri¬ 
ma esaminare il metodo impiegato per generare l’immagine video. 
Tutte le funzioni relative al video, nel 64, fanno capo a un chip se¬ 
parato, il Chip d’interfaccia Video 6567 (o chip VIC II), che tratta 
sia lo schermo in sé che i caratteri da porre sullo schermo, definen¬ 
do un’area di memoria in cui sarà immagazzinata l’informazione di 
schermo e un’altra area in cui scriverà i dati dei caratteri. 
Diversamente da quanto ci si potrebbe aspettare, il VIC li non estrae 
i dati dei caratteri dalla ROM all’indirizzo 53248. La ragione è che 
il VIC II può vedere solo 16 K di memoria in ogni singolo istante, 
così, con la memoria di schermo nella sua posizione normale da 1024 
a 2023 in memoria, i dati relativi ai caratteri devono essere estratti 
da qualche altra area di memoria tra 0 e 16383. Allo scopo, il siste¬ 
ma operativo imbroglia un poco e fa credere al VIC II che esista una 
copia dei dati del set di caratteri allocata da 4096 a 6143. Ogniqual¬ 
volta il VIC II legge in quell’area di memoria, trova i dati del set di 
caratteri, a dispetto del fatto che in realtà quell’area sarà probabil¬ 
mente riempita da un programma BASIC. 

La cosa può apparire un po’ astrusa, ma è d’importanza fondamen¬ 
tale, dal momento che significa che, invece di cercare i dati relativi 
ai caratteri nella ROM, che non si può modificare, il VIC II li cerca 
nella RAM (memoria ad accesso casuale), cioè una memoria di let¬ 
tura/scrittura che l’utente può raggiungere e alterare. Naturalmen¬ 
te non è proprio così semplice. Abbiamo già notato che, quando il 
VIC II guarda l’area di memoria da 4096 in avanti, non sono effetti¬ 
vamente quelli gli indirizzi che vede, ma un’immagine dei dati dei 
caratteri contenuti nella ROM. Fortunatamente, è questa una pre¬ 
rogativa di solo due dei blocchi di memoria all’interno del banco 
da 16K, 4096-6143 e 6144-8193. Se si istruisce il VIC II a ricercare 
i dati dei caratteri da uno qualsiasi degli altri blocchi da 2K conte¬ 
nuti in un banco da 16K, non vedrà l’immagine della ROM, ma pren¬ 
derà i dati effettivamente in quel segmento di memoria, e li tratterà 
come se fossero il set di caratteri. 

Ora la domanda è: quale blocco dobbiamo specificare? Il primo di¬ 
sponibile è 2048-4095, ma questo presenta il piccolo inconveniente 
di coincidere con l’inizio del programma BASIC, e forzarvi i nuovi 
dati dei caratteri sarà distruttivo nei confronti dei programma. Po¬ 
tremmo utilizzare i blocchi a 8192, 10240, 12288, 14336, ma sfortu¬ 
natamente ciò significherebbe che dovremmo ridurre l’area dispo¬ 
nibile per un programma BASIC in modo piuttosto drastico, perché 
altrimenti si correrebbe il rischio che un programma di dimensioni 
notevoli possa andare a sovrapporsi all’area usata per i caratteri. La 
soluzione qui adottata è di muovere ancora più in alto nella memo¬ 
ria l’intera area indirizzata dal VIC IL 

Ricorderete che il VIC II è in grado di vedere uno spezzone di me¬ 
moria da 16K per volta, tuttavia non importa quale blocco veda. 
Si hanno quattro blocchi del genere, con inizio a 0, 16384, 32768, 
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49152. Portandosi sul blocco-a 49152, mentre da una parte si dà la 
massima area di memoria al BASIC, dall’altra sorge il problema che 
è là che si trova la ROM, così richiederemo al V1C II di indirizzare 
il blocco che inizia all’indirizzo 32768. Ciò fatto, rimane solo da spe¬ 
cificare dove è il blocco da cui si prenderanno i dati dei caratteri e 
dove verranno allocati i dati di schermo. A questo punto ci saranno 
30K di memoria disponibili per un programma BASIC (2048-32767) 
e la potenzialità per un set di caratteri-utente nella RAM sopra 32768. 
Senza dubbio tutto ciò sembra eccessivamente complesso. In effet¬ 
ti, data la versatile struttura di memoria del 64, è solo questione di 
alcune POKE, e il gioco è fatto. Sulla base dei cambiamenti operati 
da queste POKE, il programma seguente permetterà di ridefinire com¬ 
pletamente o in parte il set di caratteri del 64 e di archiviarlo in mo¬ 
do che altri programmi possano raccoglierlo c utilizzarlo. 


Caratteri: lista delle variabili AS 

Cl 

cc 

CH 

CP 

MM 

PI 

P2 

PP 

TT%(7,7) 


Istruzione di una sola lettera ottenuta tramite GET 
Colore originale dello schermo alla locazione CC 
Posizione corrente del cursore nella memoria di 
schermo 

Numero del carattere corrente nel set di caratteri 
Puntatore alla locazione di memoria del carattere 
CH 

Valore introdotto per cambiare CP 
Riga della posizione del cursore sullo schermo 
Colonna della posizione del cursore sullo schermo 
Contenuto originale dello schermo alla locazione CC 
Matrice utilizzata per permettere la manipolazione 
dei dati nel carattere corrente 


modulo 3.2.i 11000 REmmmmmmmmmmmmmmwm 
11010 REM RI DEFINIZIONE MEMORI Fi 
11O20 REmMMwmtmmMMmmMmMM 
11030 POKE 5323 1 , 6 -FRINT CHR$(142) 

11040 POKE 52,128-P0KE56,128 

11050 POKE 56334,PEEK<56334>RND254 

11060 POKE 1,PEEK <1>AND251 

11070 FOR 1=0 T0 2047:POKE 32768+1, PEEK< 

53248+1>:NEXT 

11080 POKE 1, PEEK < 1 ) OR4 

11090 POKE 56334,PEEK <56334 > OR1 

11100 POKE 56578,PEEK C56578 >0R3 

11110 POKE 56576,<PEEK <56576 >RND252>OR1 

11120 POKE 648,136 

11130 POKE 53272,32 


Lo scopo di questo modulo è di portare a termine tutte le modifiche 
alla struttura di memoria precedentemente indicate c di copiare un 
set di caratteri iniziale nell’area di RAM specificata. 


Commenti Linea 11030: pone la macchina nel modo relativo ai caratteri maiu¬ 
scoli, dato che solo il primo dei due set di caratteri disponibili sul 
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64 sarà utilizzabile, una volta che il VICII non potrà più vedere l’im¬ 
magine ROM. 

Linea 11040: queste due POKE stabiliscono l’estremo superiore del¬ 
l’area disponibile per il programma BASIC, in modo tale da impos¬ 
sibilitare qualsiasi interferenza dei programmi con l’area di memo¬ 
ria riservata ai caratteri. Al disotto di questa delimitazione sono di¬ 
sponibili 30K di memoria. 

Linee 11050-11060: queste due POKE inibiscono la scansione della 
tastiera, in modo che nessun interrupt (interruzione) possa distur¬ 
bare la successiva sezione del programma, e quindi rendono visibile 
al programma il set di caratteri della ROM disabilitando il normale 
processo d’ingresso/uscita. Durante il ciclo seguente, l’unico modo 
di fermare il programma sarà lo spegnimento della macchina. 

Linea 11070: copia il set di caratteri dalla ROM all’area di memoria 
che inizia a 32768 — ciò implica il trasferimento di 2Kbyte. 

Linee 11080-11090: riabilitano il normale regime di ingresso/uscita 
e ristabiliscono i normali interrupt. 

Linee 11100-11110: queste due POKE prima preparano il Vìe II a 
un trasferimento di blocco di memoria, e quindi specificano il bloc¬ 
co 1 (32768-49151). 

Linea 11120: questa locazione è esterna al VIC II ed è la guida al 
sistema operativo per indicare dove va allocata la memoria di scher¬ 
mo — in questo caso a fare capo da 256 * 163 = 34816. 

Linea 11130: la locazione alla quale il VIC II si aspetta di trovare 
sia i dati di schermo che quelli di carattere, all’interno del suo bloc¬ 
co di 16K, è imposta dai contenuti dell’indirizzo 53272 — i quattro 
bit più significativi per lo schermo, i rimanenti per il set di caratteri. 
Questa POKE pone i quattro bit più significativi a 0010, che signifi¬ 
ca il blocco da 1K che inizia da 32768 + 2048 per lo schermo, e quelli 
meno significativi a 0000, specificando che i dati di carattere saran¬ 
no tratti da 32768 + 0. Per giungere ad altre possibili locazioni nel 
blocco da 16K, la formula per scrivere la POKE dovrà essere ((INI¬ 
ZIO SCHERMO — INIZIO BLOCCO)/1024) * 16 + ((CARATTERI — 
INIZIO BLOCCO)/2048). Lo schermo può iniziare solo a multipli in¬ 
teri di 1K all’interno del blocco mentre i caratteri possono iniziare 
solo a multipli interi di 2K (sui confini dei singoli segmenti da 1 e 
2K). Notate che avremmo potuto lasciare lo schermo a 1024 e la me¬ 
moria dei caratteri a 4096, solo che in questo blocco di 16K, come 
del resto nel blocco che inizia all’indirizzo zero, il VIC 11 vede un’im¬ 
magine della ROM da 4096 in avanti. 

Collaudo del modulo 3.2.1 II controllo di questo modulo è piuttosto semplice. Mandatelo in ese¬ 
cuzione e la macchina si bloccherà per qualche momento — non c’è 
niente che possiate fare per intervenire. 


50 



Quando apparirà sullo schermo la scritta READY, non dovrebbe es¬ 
sere cambiato niente — cosa che indica che il modulo ha funziona¬ 
to! In caso contrario, lo schermo si riempirà di segni incomprensibili. 


MODULO 3.2.2 


Commenti 


12000 REmmMmmmmmmmmmmmmm 

12010 REM STAMPA GRIGLIA 

12020 

12030 CH=0 : DIM Tm?,7> 

12040 FRI NT "m"! : FOR 1 = 1 TO 8 : FRI NT " 

" : NEXT 
12050 FRINT "a 
12060 CP=32768+CH*8 

12070 FRI NT "iii"; : FOR I=CP TO CP+7 = F0R J 
=7 TO 0 STEP-1 

12080 IF CPEEKCDAND 2TJ;=2TJ THEN FRINÌ 

II g| Il j 

12090 IF <PEEK<I> AND 2TJ>=0 THEN FRINT 

11 Ni 11 * 

12100 NEXT j:FRINT:NEXT i 

12110 PRINT l, 3CTgMft»»»»ÌÌ»Ì»r; "NUMERO DE 

L CARATTERE : " ; CH; ''MWSWWM" 

12120 INPUT "NUM. DI SPOSTAMENTO PUNTATO 

RE <8=RIDEF.>";MM:CH=CH+MM 

12130 IF CHC0 THEN CH=0 

12140 IF CH>255 THEN CH=255 

12150 IF MM=0 THEN 13000 

12160 GOTO 12040 

Esistono molti metodi per introdurre nuovi caratteri nella relativa 
memoria. Potete, se lo desiderate, disegnarli su una matrice 8 » 8, 
tradurre in binario le linee di punti per poi convertirle in forma de¬ 
cimale, inserire i numeri sotto forma di istruzioni DATA e infine por¬ 
re quest’ultime in memoria con delle POKE. Fortunatamente è mol¬ 
to più facile fare sì che sia il 64 a compiere il lavoro, disegnando 
la griglia del carattere corrente sullo schermo, per poi permetterne 
una agevole manipolazione. 

Questo modulo disegna la griglia del carattere, il seguente rende pos¬ 
sibile la manipolazione. 

Linee 12040-12050: viene tracciato un quadrato di 8 * 8 nell’angolo 
superiore sinistro dello schermo. 

Linea 12060: si calcola la posizione dei dati del carattere corrente. 

Linee 12070-12100: si provvede a stampare una versione ingrandita 
del carattere corrente nel quadrato tracciato. Notare l’uso di AND 
in questo contesto per estrarre il contenuto dei singoli bit all’interno 
degli otto byte di memoria del carattere. Tutto ciò che fa AND è la 
comparazione di due numeri binari per produrne un terzo che ha 
degli “1” solo nei bit che erano “1” in entrambi i numeri origina- 
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Collaudo del modulo 3.2.2 


MODULO 3.2.3 


riamente confrontati. Così, se si esegue una AND tra 193 e 129 (in 
binario 11000001 AND 10000001), il risultato è 129 dal momento che 
il bit 6 del primo numero non è a “1” anche nel secondo. Eseguire 
una AND tra il valore di un byte e 21 (J), dove J va da 0 a 7, eviden¬ 
zierà il valore del bit J-esimo — ricordate che i bit sono numerati 
da 0 a 7, da destra a sinistra. 

Linee 12110-12160: viene fornito il numero del carattere disegnato 
e l’utente ha la possibilità di muovere il puntatore su un altro dei 
255 caratteri. Se si introduce il numero 0, il programma passa al mo¬ 
dulo successivo. 

Ancora una volta, il test è piuttosto semplice. Se il modulo è stato 
battuto in maniera corretta, l’esecuzione del programma porterà (do¬ 
po una breve pausa) al disegno sullo schermo di una versione ingran¬ 
dita del carattere ‘Va>”. Dovreste inoltre riuscire a far scorrere gli 
altri caratteri. 

13000 rem* 

13010 REM RIDEFINÌZIONE CARATTERI 

13020 

13030 FRINT "H 

ITI" : REM 40 SPAZI 

13040 PRI NT " ar I ' INVERSI ONE ",, , “ li" M ' IM 
MAC I NE SPECULARE ",, " ar R RETURN " 

13050 PRINT " fiì 1 / COLORAZIONE PIXEL" PRI 
NT " al" 0 ' CANCELLAZIONE PIXEL" 

13060 PR I NT " Sì" T •- R0TAZI ONE ",, , " 3" P " MEM 
ORIZZAZIONE" 

13070 PRINT"SÌ"D" SALVATAGGIO IN UN FILE 
DATI", " 3 " C" CARICAMENTO SET DAL NASTRO" 
13080 PRINT "iì-'N" NORMALIZZAZIONE MEMORI 
A E TERMINE" 

13100 PRINT "3 TASTI CURSORE PER IL MOVI 
MENTO" 

13110 PRINT "3"; 

13120 GET A* 

13130 CC=PEEK<211>+PEEK<210>#256+PEEK<28 
9 ) : PP=PEEK < CC ) : C1 =55296+CC-34316 
13140 C2=PEEKCC1> 

13150 POKE CC,42■POKE Cl,l 

13160 FOR 1=1 TO 15 ; NEXT : POKE CC, F'P'POKE 

CI,C2 : IF A$="" THEN 13120 

13178 P1 = I NT ( < CC-34816 > 740 j> : P2=CC~ < 34816 

+40*P1> 

13180 IF <P1>0 AND A$="n">0RCPl<7 AND A$ 

»"W") THEN PRINT A$;: GOTO 13120 

13190 IF <P2>0 AND fì$*"l|" >0R<P2<7 AND A$ 

="«"> THEN PRINT Mi :G0T0 13120 

13200 IF A$="1" AND PI<8 AND P2<8 THEN P 

RI NT "lisi "j 
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13210 IF R$= " 0 " AND PK8 AND P2<8 THEN P 

ri NT "lì* rr; 

13220 IF fl$0" I " THEN 13230 
13230 FQR 1=0 TO 7: FOR J=0 TO 7 
13240 IF PEEK<34816+1#40+J> =32 THEN 1326 
0 

13250 POKE 34816+40*I + J.. 32 : F'OKE 55296+40 
*I+J , 182 GOT0 13278 

13260 PURE 34816+I*40+J, 160 : POKE 55296+4 
0 *I+J , 181 
13270 NEXT J, I 

13280 IF A$="R" THEN GOTO 12040 

13290 IF fl$0"M" THEN 13370 

13300 FOR 1=0 TO 7 ; FOR J=0 TO 7'TT,’;a , ,T> 

=0 : NEXT J, I 

13310 FOR 1=0 TO 7:FOR J=8 TO 7 

13320 IF PEEK<34816+40*I+J> = 160 THEN ITA 

a, j >=ì 

13330 NEXT J,I 

13340 PRINT"8"; :FORI=0TO7 = FORJ=7TO0 STEP 
-1 : IF TTX.<I,,T) = 1 THEN PRINT "IÌ5J 1"; 

13350 IF TTX<I,J)=0 THEN PRINT "SS "J 

13360 NEXT J : PRINT ; NEXT I 

13370 IF fi$0"T" THEN 13450 

13380 FOR 1=0 TO 7- FOR J=0 TO 7 •’TTXCI, J > 

=0 :NEXT J, I 

13390 FOR 1=0 TO 7 : F0R -J=0 TO 7 
13400 IF PEEK<34816+40*I+J>=160 THEN TJX 
<7-J, 7— I >=1 
13410 NEXT .J,I 

13420 PRINT .-FORI«0TO7:FORJ=7TO0 STE 

P-l : IF TTZ<I,J>=1 THEN PRINT "Sia 
13430 IF TTX<I,J>=0 THEN PRINT "SS 
13440 NEXTJ:PRINT :NEXTI 
13450 IF fi$0"P" THEN 13510 
13460 FOR I =0 T07 : TTX. < 0,1 ) =0 : NEXT 
13470 FOR 1=0 T07 : FOR J=0 TO 7 
13480 IF PEEK<34816+40*I+J) = 160 THEN TTX. 
<0,1> =TTX < 0,1>OR 2 T<7-J > 

13490 NEXT 3 ,I 

13500 FOR 1=0 TO 7 - POKE CP+I, TTX<0, I ) '■ NE 
XT : GOTO 12040 

13510 IF THEN 13550 

13520 OPEN 1,1,1,"CflRRTTERI" 

13530 FOR 1=0 TO 2047 : TX=PEEK< 32768+1 > •• P 
RINT#1, TX '• NEXT 
13540 CLOSE 1 

13550 IF RfO"C" THEN 13590 
13560 OPEN 1,1,0,"CRRRTTERI" 
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Commenti 


13580 CLOSE 1 


13570 FOR 1=0 TG 2047 : INPUT#1,T:POKE 327 
68 +I, T : NEXT 
Ì58É 
13590 
13600 

13610 POKE 
POKE 
POKE 

POKE 648.. 4 
END 

GOTO 13120 


13620 

13630 

13640 

13650 

13660 


IF fl*0"N" THEH 13660 
POKE 52 1 160 : POKE 56,160 : CLP 
' 3, P E E K < 56578 > 0 R 3 


•JDJ i O. 


565 76, 


<PEEK<56576)flND252 

,21 


>0R3 


Questo modulo esegue svariate funzioni relative alla manipolazione 
di un carattere sullo schermo, permettendone la ridefinizione, il ri¬ 
posizionamento in memoria e il salvataggio su nastro, tra le altre cose. 

Linee 13030-13100: stampa di concise istruzioni per l’uso del modulo. 

Linee 13120-13160: questo modulo non riserva sorprese. Si tratta 
semplicemente della routine a cursore lampeggiante presa dal pro¬ 
gramma Artista. 


Linea 13170: posizione del cursore: PI è la riga partendo dall’alto, 
P2 è la colonna contata da sinistra. 


Linee 13180-13190: limiti di spostamento del cursore con il quadra¬ 
to 8 * 8. 


Lince 13200-13210: premendo 1 si colora di verde un quadratino, 
premendo 0 se ne cancella uno. Vengono ignorate le istruzioni di 
stampa che porterebbero il cursore fuori dalla griglia definita. 

Linee 13230-13270: questi due cicli scandiscono il quadrato inver¬ 
tendo gli elementi colorati e non, e producono così un carattere 
inverso. 


Linea 13280: premendo R si torna al modulo precedente. 

Linee 13290-13360: questa routine produce un’immagine speculare 
di una qualsiasi combinazione di punti — cioè il carattere appare 
come visto da dietro. 

Linea 13300: si-azzera la matrice TT%. 

Linee 13310-13330: i contenuti dello schermo vengono trasferiti nella 
matrice. Non è possibile elaborare direttamente lo schermo, dal mo¬ 
mento che ciò potrebbe provocare il trasferimento del quadrato da 
sinistra a destra e di seguito una doppia lettura dello stesso, cosa 
che porterebbe a un risultato privo di significato. 

Linee 13340-13360: trasferito il contenuto della griglia dei punti alla 
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matrice, l’informazione viene riletta sullo schermo, ma l’elemento 
orizzontale viene rovesciato, in modo che la posizione 7 viene a tro¬ 
varsi nella posizione 0. 

Linee 13370-13440: i contenuti della matrice di punti vengono ruo¬ 
tati di 90 gradi in senso antiorario. 

Linee 13420-13440: i contenuti della matrice TT% vengono nuova¬ 
mente portati sullo schermo, ma ruotati in senso antiorario — dun¬ 
que la posizione 0,7 diviene la posizione 0,0 e la 0,0 diventa la 7,0. 

Linee 13450-13500: il carattere ridefinito viene riportato nella me¬ 
moria dei caratteri. Diventa ora una parte permanente del set defi¬ 
nito dall’utente. 

Linea 13460: dal momento che per un carattere si richiedono solo 
otto byte, è necessario cancellare solo otto byte della matrice, la li¬ 
nea zero, da 0 a 7. 

Linee 13470-13490: viene esplorata ogni linea della matrice e, quan¬ 
do si trova un pixel colorato, questo viene tradotto in un singolo 
bit di uno degli otto byte utilizzati per definire il carattere. Dopo 
avere utilizzato degli operatori AND per leggere i singoli bit, notate 
l’uso di OR per manipolarli. Eseguendo l’operazione OR tra due nu¬ 
meri binari, tutti i bit che si trovano a “1” in uno (o entrambi) degli 
operandi, sono a “1” nel risultato. Dunque calcolare l’OR di un nu¬ 
mero con 2 I (J), dove J va da 0 a 7, significa porre a “1” il J-esimo 
bit, indipendentemente dalla sua condizione primitiva. 

Linea 13500: gli otto byte della matrice vengono posti in memoria 
nella posizione precedentemente occupata dal carattere ridefinito. 

Linee 13510-13540: l’area di memoria da 32768 in avanti viene sal¬ 
vata sul nastro sotto forma di numeri interi. 

Linee 13550-13560: è possibile caricare dal nastro un set di caratteri 
precedentemente memorizzato per ulteriori manipolazioni. NB: que¬ 
sto è un esempio di come estrarre un nuovo set di caratteri da un 
altro programma, per un successivo utilizzo. 

Linee 13590-13650: se il programma è concluso, la memoria deve 
essere riposta nelle sue condizioni originali — a meno che non vo¬ 
gliate continuare a usare il nuovo set di caratteri con un altro pro¬ 
gramma che state per caricare. Dimenticare di riposizionare la me¬ 
moria significherebbe privare i programmi seguenti di 8K di memo¬ 
ria e forzarli a usare il nuovo set di caratteri. 

Linea 13600: si restituisce al BASIC tutta la sua potenziale estensione. 

Linee 13610-13620: si ripristina il banco di memoria indirizzato dal 
V1C 11 (3, cioè 0-16383). 
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Linee 13630-13640: fanno sì che lo schermo inizi di nuovo a 1024 
(sua posizione naturale) e la memoria dei caratteri è riportata da 4096 
in avanti. 

Collaudo del modulo 3.2.3 Dato che questo è un modulo piuttosto lungo, con svariate funzio¬ 
ni, si suggerisce di collaudare separatamente ogni funzione dopo aver¬ 
la introdotta. Notate che, se una funzione particolare risulta difet¬ 
tosa e avete inserito delle modifiche a una linea, non è necessario 
eseguire tutto il programma dal principio. Battete semplicemente GO¬ 
TO 12000, dato che il set di caratteri, che si trova oltre l’area BA¬ 
SIC, e la struttura della memoria non vengono disturbati dall’intro¬ 
duzione di nuove linee. Se tutto funziona come dovrebbe, saranno 
disponibili le funzioni descritte nei commenti. 

Riepilogo Come non mancherete di notare, si tratta di un programma estre¬ 
mamente piacevole da usare anche di per se stesso, ma tutte le sue 
possibilità si rivelano pienamente in ciò che può fare nel ravvivare 
l’uscita di altri vostri programmi. Dal momento che in realtà non 
riloca il BASIC, ma ne limita solo lo spazio disponibile, si possono 
caricare in macchina altri programmi che facciano uso del set di ca¬ 
ratteri ridefinito. Se è stata spenta la macchina, o rinormalizzata la 
memoria, dopo aver ridefinito il set di caratteri, tutto ciò che biso¬ 
gna fare è aggiungere il primo modulo (eccetto le linee 11050-11090) 
all’inizio dei programmi che seguono, per poi ricaricare dal nastro 
il set di caratteri ridefinito tramite la routine a 13560-13580. Tutta¬ 
via, ricordate che, se ridefinite “A” come il carattere “invasore spa¬ 
ziale”, allora ogni “A” stampata dal programma, persino nel lista¬ 
to, sarà quella ridefinita. Per salvaguardare la leggibilità è solita¬ 
mente meglio ridefinire i caratteri grafici! 

Questo programma, al di là del suo impiego pratico, rappresenta una 
valida introduzione ad alcune delle possibilità dischiuse dalla versa¬ 
tile struttura di memoria del 64 e alle tecniche necessarie per ottene¬ 
re il massimo da quanto disponibile. Volendo approfondire le tecni¬ 
che di manipolazione della memoria, è necessario procurarsi una co¬ 
pia della Guida di Riferimento per il Programmatore — dopo que¬ 
sto programma non dovreste avere alcuna difficoltà nel compren¬ 
dere e applicare ciò che vi troverete. 

Ulteriori sviluppi 1) Una semplice aggiunta al programma potrebbe essere una routi¬ 
ne per scambiare tra loro le posizioni di due caratteri, oppure per 
porre un carattere ridefinito in un’altra locazione del set. 

2) Costruire un intero set di caratteri con questo programma po¬ 
trebbe diventare una cosa estremamente lunga. Perché non provare 
ad aggiungere qualche funzione di manipolazione di blocchi che per¬ 
metta d’invertire, ruotare, riprodurre specularmente, ecc. un insie¬ 
me di vari caratteri compresi tra limiti da specificare? 1 listati ap¬ 
paiono estremamente interessanti con tutte le lettere rovesciate! 
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3.3 Animazioni 


Introdotto il programma Caratteri, abbiamo spianato la via per l’e¬ 
same di una delle caratteristiche del 64 che altri possessori di micro¬ 
computer possono solamente sognare: le animazioni. Con l’avven¬ 
to del 64, sono definitivamente finiti i tempi in cui solo i program¬ 
matori in linguaggio macchina potevano fare muovere a loro piaci¬ 
mento disegni ad alta risoluzione per tutto lo schermo, con impres¬ 
sionante realismo. Specialmente nel campo dei giochi, le animazio¬ 
ni rappresentano una rivoluzione tra i micro di prezzo contenuto. 
In sostanza, un’animazione differisce molto poco dai caratteri-utente 
con i quali abbiamo già lavorato. La creazione della “funzione” ani¬ 
mazione ha richiesto notevoli doti d’immaginazione e competenza 
tecnica, ma per quanto riguarda l’utente, un’animazione è solamente 
un carattere un po’ più grande, che si può muovere sullo schermo 
in modo più versatile. 

Come i caratteri del normale set di caratteri, le animazioni sono de¬ 
finite da una serie di byte memorizzati in RAM. Tuttavia, invece di 
una griglia 8 * 8, le animazioni usano una matrice di 24 punti in oriz¬ 
zontale per 21 in verticale. Chiaramente questa griglia non si può 
definire tramite i 64 punti presenti in 8 byte. Infatti, ogni riga è de¬ 
finita da tre byte (24 bit) e, dato che ci sono 21 righe, sono necessari 
63 byte per definire un’animazione o sprite. 

I dati delle animazioni si possono memorizzare in qualsiasi zona si¬ 
cura all’interno del blocco di memoria di 16K indirizzato dal VIC II. 
All’interno di questo blocco si possono definire fino a otto anima¬ 
zioni contemporaneamente, ma si possono, se necessario, tenere di 
riserva molti più disegni, per renderli istantaneamente attivi. 

Le principali locazioni di memoria che controllano l’uso delle ani¬ 
mazioni sono le seguenti: 

a) 2040-2047: queste otto locazioni sono i puntatori all’animazio¬ 
ne. Hanno la funzione di indicare da dove ricavare i dati per ogni 
singola animazione nel blocco da 16K. Dal momento che le anima¬ 
zioni sono memorizzate in blocchi di 64 byte (benché ne usino solo 
63), i 256 valori che si possono forzare in ogni puntatore permetto¬ 
no di coprire l’intero blocco di 16K. Così i dati dell’animazione 2 
verranno estratti dalla memoria a 64 * PEEK(2042). 

b) 53269: registro di abilitazione animazione. Un’animazione è vi¬ 
sibile solo quando è attivato il bit corrispondente di questo registro. 

c) 53248-53264: registri posizione. Questi lavorano in coppie da 
53248 a 53263, definendo le coordinate X e Y sullo schermo dell’an¬ 
golo superiore sinistro della griglia dell’animazione. Tuttavia, dato 
che in realtà lo schermo è più ampi© del valore di 255, massimo me- 
morizzabile in un singolo byte, e raggiunge i 320 pixel, si utilizza 
un bit della locazione 53264 per segnare se la posizione di ogni og¬ 
getto sull’asse X sia maggiore di 255. Tutto ciò porta a un totale di 
512 posizioni possibili sull’asse X e 256 sull’asse Y. 

d) 53287-53294: registri colore dell’animazione. Ogni oggetto può 
assumere uno qualsiasi dei 16 colori del 64, semplicemente forzan¬ 
do il giusto valore nel registro appropriato. 

In realtà ci sono altre locazioni di rilievo, ma queste basteranno per 
poter proseguire. 
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La questione finale da decidere è dove porre i dati degli sprite da 
animare. Se volete solo tre animazioni, un luogo comodo è il buffer 
d’ingresso/uscita per le cassette, che si trova da 828 a 1019 (ovvia¬ 
mente non si possono caricare o salvare dati finché le animazioni 
sono allocate in quella posizione). Se volete un numero maggiore 
di oggetti, sarà necessario separare un’area di memoria per questi: 
esattamente la stessa situazione dei caratteri-utente. Per amore di 
varietà, nel nostro programma di definizione di animazioni, adotte¬ 
remo una soluzione differente da quella offerta nel programma Ca¬ 
ratteri. Ciò che faremo è spostare l’inizio del programma BASIC da 
2048 a 4096, lasciando così 2K di memoria dove porre fino a 32 in¬ 
siemi distinti di dati relativi alle figure da disegnare. Ciò risulta con¬ 
veniente per il fatto di non .comportare assolutamente spostamenti 
della struttura della memoria video — comporta, invece, il riposi¬ 
zionamento dell’indirizzo iniziale del BASIC, prima di caricare il 
programma. 

Ciò fatto, il programma, come il generatore di caratteri, permetterà 
la definizione e la manipolazione delle matrici di punti e l’opzione 
di salvataggio su nastro per usi successivi. Il modo più semplice per 
introdurre questo programma è quello di caricare prima Caratteri, 
e poi adattare quel programma. 

Programma di caricamento Le linee che seguono non fanno parte del programma principale, sono 
per Animazioni pensate per essere inserite nel 64 e salvate sul nastro prima di scrive¬ 
re e salvare il programma principale. La funzione è di riposizionare 
l’inizio del BASIC, per poi caricare il programma principale nella me¬ 
moria riconfigurata. 


100 
110 
120 
130 
140 



P0KE43 .• 1 : P0KE44,16: POKE 4096,0 : CLP 
LOflD"ANIMAZIONI" 


Commenti Le locazioni 43 e 44 sono i puntatori di sistema verso l’inizio del pro¬ 
gramma BASIC, normalmente contenenti i valori 1 e 8 (locazione 1 
+ 256 * 8 = 2049). Tutto ciò che fa la linea principale è modificare 
questo valore, portandolo a 4097. Il primo byte del programma de¬ 
ve sempre essere 0, valore che viene quindi imposto dalla POKE; viene 
poi cancellata la memoria, completandone la riconfigurazione. Fat¬ 
to ciò, viene automaticamente caricato il programma principale. A 
costo di annoiarvi, ricordate che non deve far parte del programma 
principale — altrimenti verrebbero tagliati i primi 2K di program¬ 
ma non appena lanciata l’esecuzione. 

Animazioni lista delle variabili SP Indirizzo del puntatore all’animazione corrente 

SC Indirizzo del registro colore dell’animazione 

SS Inizio dei dati dell’animazione 

FNS(SN) Inizio del blocco di dati dell’animazione SN 

SN Numero dell’animazione 
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MODULO 3.3.1 


MODULO 3.3.2 


TT%(20, 23) Matrice per la manipolazione temporanea dei dati 
dell’animazione 

MM Valore per il movimento di SN 


(Si veda anche il programma Caratteri). 


12000 REM####*####*##*#**##*########### 
12010 REM COSTRUZIONE PUNTATORE RHIMfiZ. 
12020 REM*####*######**##************** 
12030 SP=2040 : SE=53269 : SS=2048 
12040 DEF FNS < SN> =SS+64# CSH> 

12050 SN=0^ HIM TTX<20,23):P0KE532S1,6 


Le variabili qui dichiarate sono spiegate nella lista delle variabili. 


13000 REM****************************** 
13010 REM STAMPA GRIGLIA 
13020 REM**#***#******#####*####*###**# 
13030 P0KE53269,1 :P0KE53287,1 :POKE SP,FN 
S<SN>/64 

13040 P0KE53248,0 :P0KE53264,1 :POKE53249, 
80 

13050 FRI NT "IT;: FOR 1 = 1 TO 11-FRI NT "HS 

Kkkkkkkkkkkkkkkkkkkkkkkkl 11 

13060 FRI NT "fflkkkkkkkkkkkkkkkkkkkkkkkir 

: NEXT 

13070 PRINT "Htìn 

II 

13080 print 

ii 

13090 PRINT "SSi";:FOR I=FNS<SN> TO FNSCS 

N > +62 STEP 3 :FOR J=0 TO 2 

13100 FOR K=7 TO O STEP-1 

13110 IF (PEEKCJ+DANU 2HO=2TK THEN PRI 

NT 

13120 IF (PEEKU+J) AND 2TK>=0 THEN PRIN 

y ii ii • 

13130' NEXT K, J : PRINT : NEXT I 

13140 PRINT ".NINUMERO DEL DISEGNOSN 

13150 INPUT "SPIAZZAMENTO PUNTATORE (0=R 

IDEF.>";MM:SN=SN+MM 

13160 IF SNC0 THEN SN=tì 

13170 IF SN>31 THEN SN=31 

13180 IF MM=@ THEN POKE 53248,0:POKE 532 

64,1:P0KE53249,200 : GOTO 14000 

13190 GOTO 13000 


Quasi uguale al modulo per il tracciamento della griglia nel program¬ 
ma Caratteri. 
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Commenti 


Collaudo del modulo 3.3.2 


MODULO 3.3.3 


Linea 13030: 53269 è il registro di abilitazione delle animazioni — 
questa FOKE attiva il bit zero e l’animazione corrispondente. 53287 
è il registro colore dell’animazione zero e la POKE pone il colore sul 
bianco. Il puntatore all’animazione zero viene fatto puntare al pri¬ 
mo blocco di 64 byte dell’area di memoria riservata. 

Linea 13040: l’animazione zero è posta a 256 sull’asse X e a 80 sul¬ 
l’asse Y. 

Linee 13050-13080: viene stampato il profilo della griglia. 

Linee 13090-13130: il ciclo I controlla i dati dell’animazione in gruppi 
di tre, il ciclo J controlla ogni byte, il K ogni bit. Viene stampato 
un cerchio per ogni bit attivo. 

Linee 13140-13190: l’utente può spostare il puntatore all’animazio¬ 
ne. Notate che si modifica l’area di memoria puntata dal puntatore, 
non l’effettivo puntatore. In questo programma useremo sempre l’a¬ 
nimazione zero. 


Facendo girare questo modulo (ricordate di lanciare prima il pro¬ 
gramma per il caricamento) apparirà una figura “sporca” alla de¬ 
stra della griglia e singoli punti di quest’ultima verranno riempiti. 
Alle volte risulta difficoltoso vedere la corrispondenza tra le due fi¬ 
gure a causa delle ombre automaticamente poste nelle animazioni. 
Due bit attivi sulla stessa linea, con uno spazio interposto, appari¬ 
ranno in realtà come un singolo blocco nero. 


14000 
14010 
14020 
14030 

14040 
14050 
14060 
14070 
14080 
14030 
14100 
14110 
14120 
14130 
14140 
14150 
14160 
14170 
14180 
14130 
14200 


REMmmwmmmmmwmmmmMm 

REM RIDEFINIZIONE ANIMAZIONI 


FRI NT "71 

S":REM 33 SPAZI 

PRINTFÌU " 

PRINTF»; "I 
PRINTF$;" 


a- 1 •- 

INVERS" 

HIV 

IMMAGINE" 

SPECULARE" 

a-R-- 

RETURN" 

ii 1 -• 

ATTIVA" 

a / 0 / 

CANCELLA" 

fii-'T'* 

RUOTA" 

a-p" 

MEMORIZZ" 

srs'‘ 

SALVA" 

a- L' 

CARICA" 

fi i ' E 

TERMINA" 

a |' - ;•*/ 

SCAMBIA" 

src' 

COLORE" 


PRINTF$j" 

PRINTF$;" 

PRINTF$;" 

PRINTF*; "Si'E 
PRINTF*; 

F’RINTFt; 

PRI NTFt ; " sfTAST I CURSORE " 
PRINTF$," PER MUOVERE" 
PRINT"»"; 
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14210 GETA$ 

14228 CC=PEEP<211 > +PEEK<216;• *256+PEEP<20 
9> PF-PEEK<CC > :C1=55296+CC~1024 
14230 C2=PEEK<C1> 

14240 POPE CC,42 : POPE CI■1 

14250 FOR I=0TO 15 NEXT : POPE CC,PP : POKEC 

1,C2 IF m-"" THEN 14210 

14260 P1 = INT < <CC-1824>/40> P2=CC-<1024+4 

0*P1> 

14270 IF <P1>0 AND OR <P1<20 AND 

A$=":«"> THEN PRIMI A*;: GOTO 14210 
14230 IF <P2>0 AND A$="ll") OR <P2<23 AND 
THEN PRINT A*, ; GOTO 14210 
14290 IF At=" 1 " THEN PRINT "itoli", : GOTO 1 
4210 

14300 IF A$="0" THEN PRINT "SS Iti"; : GOTO 
14210 

14310 IF A$<>" 1 11 THEN 14370 
14320 FUR I = 0 10 20 FOR J—0 10 23 
14330 IF PEEP<1024+1*40+J>=32 THEN 14350 
14 340 POPE 1024+1*40+J,32 ; POPE 55296+40* 
I+.T , 182 : GOT0 14360 

14350 POPE 1024+40*I+J,31 : POPE 55296+40* 
I+J,181 

14360 NEXT J, I • GOTO 14210 

14370 IF THEN GOTO 13030 

14380 IF fì$0"M" THEN 14460 

14390 FOR 1=0 TO 20 ; FOR J=0 TU 23 : TTX<I, 

J>=0 : NEXT J,I 

14480 FOR 1=0 TO 20=FOR J=0 TO 23 
14410 IF PEEP< 1024+1*40+J> =31 THEN TTX.<I 
, J> = 1 

14420 NENT J,I 

14430 F'R I NT "SI"; : FOR I =0TO2@ : FOR J=23T 00 ST 
EP-1 : IF TT2<I,J) = 1 THEN PRINT " ito " ; 

14440 if TT’i<I,J>=0 THEN PRINT "S "; 
14450 NEXT J:PRINT:NEXT I : GOTO 14210 
14460 IF AfO"T" THEN 14540 
14470 FOR 1=0 TO 20 : FOR J=0 TO 23 : TTX<I, 
J>=0:NEXT J,I 

14480 FOR 1=0 TO 20:FOR J=0 TO 20 
14490 IF PEEP<1024+40*I+J> =81 THEN TTX<2 
0-J,20-I>=l 
14500 NEXT J,I 

14510 PRINT"»"'; :FORI=0TO20:FORJ=20TO0 ST 
EP-1 : IF TTX<1,J > = 1 THEN PRINT " itolT , 
14520 IF TTX<I,J>=0 THEN PRINT "S ri"; 

14530 NEXT J:PRINT :NEXT I : GOTO 14218 
14540 IF A$0"P" THEN 14600 
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14550 FOR I=e TO 28 :FOR J=8 Tfi 2 ; TTX< I , .T 
>=0 : NEXT J,I 

14560 FOR 1=0 TO 20 : FOR J=0 TO 2:FOR K=0 
TO 7 

14570 IF PEEK<1024+40#I+8#J+K>=81 THEN T 
TX(I, J> =TTX(I, J> OR 21<7-K> 

14580 NEXT K,.J,I 

14590 FOR 1=8 TO 20 : FQR,T=0TO2 : POKEFNSCSN 

> +3# I + J, TTX (. I, .J ) : NEXT J.. I : GOTO 13030 

14600 IF fi$0"S" THEN 14660 

14610 I NF'UT " «PMPlBlslPlPliJPMPltìPlPMPlPlalpMPM ì-\ IJ M 

ERO IH ANIMAZIONI Dfl SALVARE";NN 

14620 IF NN<1 OR NN>32 THEN 14610 

14630 OPEN 1,1,1,"RNIMHZIONI":PRINT#1,NN 

14640 FOR 1=0 TO NN#64-1:TX=PEEK<SS+I) : P 

RI NT# 1, TX : NEXT 

14650 CLOSE1 

14660 IF A$O n L" THEN 14700 
14670 OPEN 1,1,0."RHIMAZIONI": INPUT#1,NN 
14680 FOR 1=0 TO NN#64-1 INPUT#1,T ; POKE 
SS+I,T NEXT 


14690 

cu: 

iSE 

1 




14 

700 

IF 


>"E" 

THEN 

147 

20 

14 

710 

PUK 

:E53 

269, 

0 POKE 

43 

, 1 

E 

2048.0 

CLP 

END 




14 

728 

IF 

R$< 

’v il V II 

»■" ii 

THEN 

147 

80 


1 : P0KE44,8 : POK 


14730 I NPUT " i \UM 

ERO Ufi SCAMBIARE "J S2 


14740 IF S2C6 OR S2>31 THEN 14730 
14750 FOR 1=0 TO 62 :LET T1=PEEK(1+FNS < SN 
> > : POKE I+FNS «. SN >, PEEK < I+FNS < S2 ) :> 

14 760 POKE I+FNS<S2 >,T1 :NEXT 
14770 GOTO 13000 


14780 IF A$0"C" THEN 14880 

14790 IF PEEK<53276:• AND 1 = 1 THEN POKE 532 

76,0:GOTO 14210 

148O0 I NPUT " i EF 
INIRE IL COLORE PER 01 <0-15>:";Cl 
14810 IFC1C0ORC1>15THENPRINT "1 

" : GOTO 14800 

14820 INPUT " a^PJpJPlPj(!lP|Pltfi(!lPlalPl«tìPl«alPM«?I«riEF 
INIRE IL COLORE PER 10 <0-15>";C2 
14830 IFC2<0GRC2>15THENPRINT "1 

"GOTO 14820 

14840 input " 

INIRE IL COLORE PER 11 <0-15>:";C3 
14850 IFC3<0ORC3>15THENPRINT "1 


": GOTO 14840 

14860 P0KE53285, ( PEEK (53285>ANB240 > ORC1 : 
P0KE53287,<PEEK(53287> AND240)0RC3 
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Commenti 


14870 POKE 53286, PE.EK r 53286 > FINII 240 > ORC2 
P0KE53276,1 GOTO 14210 
14880 GOTO 14219 
14890 END 

Questo modulo ha la stessa funzione del modulo di ridefinizione ca¬ 
ratteri del programma precedente. 

Linee 14050-14190: istruzioni per l’uso del modulo. 

Linee 14210-14250: modulo standard per lo spostamento del cursore. 

Linea 14260: riga e colonna del cursore sulla matrice dei punti. 

Linea 14370: R ritorna al modulo precedente. 

Linee 14460-14530: rotazione oraria. 

Linee 14540-14590: l’animazione ridefinita viene nuovamente posta 
in memoria. Il ciclo I scandisce ogni riga della griglia, il ciclo J si 
muove entro gruppi di tre byte, il K seleziona ogni bit. 

Linee 14600-14650: i dati vengono salvati su nastro. L’utente ha la 
facoltà di dichiarare quante figure bisogna salvare. Ciò rende possi¬ 
bile il salvataggio di tre animazioni che si possono memorizzare nel 
buffer d’ingresso del nastro di un programma seguente. 

Se viene richiamato dal nastro uno sprite per ulteriori modifiche, 
vengono perse le animazioni attualmente in memoria. 

Linee 14700-14710: questa routine disabilita lo sprite, normalizza la 
memoria e termina il programma. 

Linee 14720-14770: X permette di scambiare i dati dell’animazione 
con quelli di un’altra posizione — particolarmente utile alla costru¬ 
zione di una terna. 

Linee 14780-14870: questa routine permette di entrare o uscire dal 
modo multi-colore. 

Linea 14790: se è attivo il modo multi-colore (cioè è a “1” il bit cor¬ 
rispondente nel registro degli sprite multi-colore a 53276) e si richia¬ 
ma questa funzione, il modo multi-colore viene disattivalo per lo 
sprite zero. 

Linee 14800-14840: gli enigmatici 01, 10 e 11 di questi messaggi si 
riferiscono alle combinazioni di bit sulla griglia dell’animazione. Tro¬ 
vandosi nel modo multi-colore, questa viene considerata come se 
avesse solo 12 punti in senso orizzontale (benché punti di lunghezza 
doppia). I bit vengono letti in coppie partendo da sinistra e, natu¬ 
ralmente, formano coppie di 00, 01, 10 o 11. Ognuna di queste com¬ 
binazioni produrrà un colore diverso nel modo multi-colore, dove 
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00 è lo sfondo dello schermo colorato dal registro del multi-colore 
a 53285. Il colore 10 è governato dal normale registro di colore del¬ 
l’animazione. Il colore 11 proviene dal registro del multi-colore po¬ 
sto a 53286. 

Collaudo del modulo 3.3.3 Una volta battuto il modulo, dovrebbero divenire utilizzabili tutte 

le funzioni descritte tra i commenti. Come nel caso del modulo equi¬ 
valente di Caratteri, è meglio controllare ogni funzione non appena 
introdotta. 

Riepilogo Qualche riflessione su questo programma mostrerà come sia facile 
utilizzare le animazioni, una volta comprese le funzioni di alcune 
locazioni di memoria. Il programma stesso fornirà una serie infini¬ 
ta di animazioni che si possono salvare su un nastro separato per 
usi successivi. Le tecniche contenute in questo programma rende¬ 
ranno cosa semplice l’uso ottimale di simili animazioni nelle vostre 
creazioni. 

Ulteriori sviluppi 1) Il programma non prevede un’altra possibilità legata alle anima¬ 
zioni, cioè la funzione di espansione, che raddoppia l’altezza o la 
larghezza dell’oggetto (stesso numero di byte, solo allungati). È una 
funzione facilissima da aggiungere, dato che tutto ciò che comporta 
è l’attivazione del bit corrispondente nel registro 53277 per l’espan¬ 
sione orizzontale e nel 53271 per quella verticale. Agli scopi di que¬ 
sto programma, il valore corretto è zero. 

2) Sarebbe utile poter caricare dal nastro solo parte di un insieme 
di animazioni, per esempio una alla volta, per decidere se desiderate 
introdurla nell’insieme corrente. Una piccola modifica alla routine 
di caricamento dovrebbe permettervi di ottenere questo risultato. 


3.4 Alta risoluzione 


Benché le possibilità fornite dai caratteri-utente e dalle animazioni 
siano pressoché illimitate, il 64 mette a disposizione un ulteriore modo 
grafico fondamentale, la grafica in bit-map. Ciò significa che, inve¬ 
ce di essere in grado di indirizzare un minimo di una delle 1000 posi¬ 
zioni di carattere dello schermo normale, l’utente ha la possibilità 
di agire su ogni singolo pixel (forma contratta di picture element = 
elemento d’immagine) o punto sullo schermo. In questo modo si pos¬ 
sono tracciare sullo schermo curve e segni lineari, anche se per sfrut¬ 
tarlo completamente dovrete entrare in possesso della cartuccia di 
espansione grafica del 64, che vi metterà a disposizione svariati ver¬ 
satili comandi grafici. 

Per comprendere il programma qui presentato, è necessario saperne 
di più su come è costruito lo schermo nel modo bit-map. Lo scher¬ 
mo in sé contiene 320 » 200 posizioni distinte, per un totale di 64000. 
Per poterle memorizzare separatamente, sono necessari 8000 byte 
di memoria, pari a 64000 bit distinti. Ciascuna delle normali posi¬ 
zioni dei caratteri necessita di 8 byte (la griglia di 8 * 8 che abbiamo 
usato per la grafica-utente). Iniziando dall’angolo superiore sinistro 
dello schermo, i primi 8 byte (da 0 a 7) della memoria di schermo 
vengono utilizzati per creare quella che sullo schermo ordinario sa- 
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Alta risoluzione: 
lista delle variabili 


MODULO 3.4.1 


rebbe la prima posizione di carattere. 1 secondi 8 byte formano la 
seconda matrice di 8 * 8 punti, e così via per tutta la linea. Dal mo¬ 
mento che in ogni linea sono presenti 40 posizioni di carattere, ogni 
linea richiede 320 byte. Dato che il modo bit-map permette l’indi- 
rizzamento dei singoli pixel, questa linea di matrici 8 * 8 è in grado 
di contenere otto linee dello spessore di un singolo pixel (benché trac¬ 
ciate tutte insieme appaiano come una barra compatta). 

La memoria di 8K necessaria per contenere lo schermo nel modo 
bit-map è ovviamente impossibile da contenere nella normale me¬ 
moria di schermo da 1K, né, in pratica, è possibile utilizzare quel¬ 
l’area come sua parte, dato che le locazioni da 1024 a 2023 sono uti¬ 
lizzate per contenere le informazioni di colore dello schermo in bit- 
map. La soluzione adottata nel programma che segue è di allocare 
lo schermo a far conto da 8192, lasciando 6K di memoria per il pro¬ 
gramma BASIC, con l’opzione di rilocarlo, nel caso di sue estensio¬ 
ni o sviluppi. Con il programma presentato in queste pagine, potre¬ 
te utilizzare lo schermo come una tavola da disegno, usando, al po¬ 
sto della matita, le frecce di movimento del cursore oppure un sem¬ 
plice algoritmo di tracciamento linee. 


DX Distanza lungo l’asse X tra gli estremi di una linea 

DY Distanza lungo l’asse Y tra gli estremi di una linea 

FN PE Valore da forzare in PP per cancellare il pixel X, Y 

FN PP Locazione del byte in cui cade il pixel X, Y 

FN PV Valore da forzare in PP per attivare il pixel X, Y 

MO Modo corrente del programma 

SC Inizio dello schermo 

SL Inclinazione della linea da tracciare 

XI, X2 Coordinate X degli estremi della linea 

Yl, Y2 Coordinate Y degli estremi della linea 


10000 REM****************************** 

10010 REM INIZIALIZZA ALTA RISOLUZIONE 

10020 rem ****************************** 

10022 CL$="":‘INPUT "ZfcPULIZIA SCHERMO <S 
/N ’) ; 11 j CL$ 

10025 REM POKE 44,64:POKE 43,1:POKE 1638 
4,0 ; CLR 

10027 DEF FNPP<X>=SC+320*INT <V/8>+8*INTC 
X/8) + <V AND 7) 

10028 DEF FNPV <X) =PEEK <FNPP < X ) ) OR <2t<? 
- < X AND ?> ')') 

10029 DEF FNPE < X )=PEEK < FNPP(X)> AND <255 
~2t<7~<X AND 7)>) 


10030 POKE 53272, <PEEI<<5327 
53265.. PEEK< 53265) OR 32 : SC= 
10035 IF CL$="N" THEN 10050 


CL. 

o 


> > OR 8 ; POKE 
192 


10040 FOR I=SC TU SC+7999:POKE 1,0:NEXT 
10050 FOR 1=1024 T0 2023 : POKE 1,6*16+12: 


NEXT 


10060 MOX < 0)=2 


MOX <1>=5:MOX < 2 


10 


65 



Commenti 


Collaudo del modulo 3.4.1 


MODULO 3.4.2 


Questo modulo configura la memoria di schermo per il modo bit- 
map, definisce alcune utili funzioni e pulisce lo schermo in alta 
risoluzione. 

Linea 10025: le POKE di questa frase REM non sono necessarie al¬ 
l’esecuzione di questo programma. Sono state incluse allo scopo di 
fornire le informazioni necessarie per rilocare il (programma) BA¬ 
SIC, nel caso voleste sviluppare il programma tanto da rendere pos¬ 
sibile che si sovrapponga alla memoria di schermo da 8192 in avan¬ 
ti. Come nel caso del programma Animazioni, le POKE vanno po¬ 
ste in un programma di caricamento da lanciare prima del program¬ 
ma principale. In questa versione il programma funziona perfetta¬ 
mente all’interno della memoria di 6K fino a 8192 — non è nemme¬ 
no necessario porre un limite superiore al BASIC. 

Linee 10027-10029: lo scopo di queste istruzioni è spiegato nella li¬ 
sta delle variabili. 

Linea 10030: 53272 è il registro normalmente usato per controllare 
la posizione in cui il VIC II cerca i dati dei caratteri; in questo caso 
imporrà l’inizio dello schermo in bit-map. Forzando 8 in questa lo¬ 
cazione, si pone l’inizio dello schermo a 8192. Forzando 32 in 53265, 
si attiva il modo bit-map. 

Linee 10035-10040: alla linea 10022 è stata data facoltà all’utente 
di pulire lo schermo. Durante lo sviluppo del programma, quando 
questo viene fermato e si preme RUN/RESTORE, si possono appor¬ 
tare modifiche al programma stesso senza minimamente influenza¬ 
re i contenuti dello schermo. Lanciando nuovamente il programma, 
non dover cancellare gli 8000 byte fa risparmiare tempo. 

Linea 10050: questa linea pulisce la normale area di memoria dello 
schermo, ora utilizzata per contenere i dati di colore di ognuna delle 
normali 1000 posizioni di carattere. 

Alla prima esecuzione del programma, lo schermo vi apparirà dap¬ 
prima “sporco”. Gradatamente verrà pulito, anche se potrà ancora 
contenere dei quadrati colorati corrispondenti alla posizione dei ca¬ 
ratteri quando lo schermo si trova nel modo normale. Anche questi 
dovrebbero cominciare a cancellarsi per porre lo schermo sul bian¬ 
co. Finito il modulo, premete RUN e RESTORE per ritornare al mo¬ 
do consueto. 


11000 9 Em**mm%m*Mm**mmM**mm* 

11010 REM DISEGNA SULLO SCHERMO 

11020 

11@30 X=160 ; V=96 : M0=1 : POKE 1024,< PEEK<10 
24>RHD240> OR <M0$2) 

11040 TT=PEEK<FNPP<X>> 

11042 GET fi*- IF 0*0"" THEN 11050 
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Commenti 


11044 POKE FNF'P < X , FNPV < X > : POKE FHF'P <X >, 
FNPEO-O: GOTO 11042 
11050 POKE FNPPCX),TT 

11060 1F M0<3 THEH X=X-<fì$-"M ,i AND X<319 
) + < ft$= " II" AND x> 0 > 

11062 IF M0=3 THEN X=X-10# < A$="IH" AND XC 
310> + 10*(H$="S»" AND X>10) 

11070 IF M0-C3 THEN V=V-<fì$="W" HND VC191 
>+<fl$="n" HND v>0> 

11072 IF NO=3 THEH V=V~ 10#<A$= "'pJ" AND V< 

is2)+i0*'::h$=":i" and v>ie> 

11075 IF A$="*" THEN MO*MO+1 :M0=M0+4#<MO 
>3 > : POKE 1024, < PEEK C1024 > AHD240 >OR MQ#2> 
11080 IF MO=1 THEN POKE FNPP(X),FNF’VCX) 
11090 IF MO=0 THEN POKE FNPP<X),FNPE<X) 
11100 IF A$="1" THEN X1=X : V1=V 
11110 IF A$="2" THEN X2=X : V2=V 
11120 IF Af="L" THEN GOSUE 12000 
11200 GOTO 11048 
11499 GOTO 11499 

Questo modulo permette di spostare sullo schermo un pixel lampeg¬ 
giante, attivando o cancellando i singoli pixel. 

Linea 11030: X e Y sono le coordinate del pixel sullo schermo di 
estensione 200 * 300. Il cursore a pixel lampeggiante viene posto al 
centro del video. Nella prima posizione della normale memoria di 
schermo viene forzato un valore che produce un indicatore colorato 
del modo corrente (nero = 0, rosso = 1, porpora = 2, blu = 3). 
Gli effetti dei modi verranno spiegati in seguito. 

Linea 11040: si calcola lo stato dello schermo nella posizione in cui 
va fatto lampeggiare il cursore. 

Linee 11042-11050: il cursore viene fatto lampeggiare fino alla pres¬ 
sione di un nuovo tasto. 

Linee 11060-11072: nel modo 3, premendo i tasti con la freccia di 
spostamento del cursore, si ottiene il movimento di 10 posizioni del 
pixel lampeggiante, nella direzione richiesta (all’interno dei limiti dello 
schermo). Nei modi 0, 1 e 2 si muove solo di uno spazio per volta. 

Linea 11075: i tasti funzione senza shift, dall’alto verso il basso, ven¬ 
gono utilizzati per determinare il modo. Cambiando modo, si cam¬ 
bia anche l’indicatore colorato. 

Linee 11080-11090: se il modo è zero (nero) il pixel nella posizione 
del cursore viene cancellato. Nel modo uno (rosso) il pixel viene at¬ 
tivato. I due modi rimanenti permettono il movimento, rapido o len¬ 
to, del cursore, senza modificare il contenuto dello schermo. 
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Collaudo del modulo 3.4.2 

MODULO 3.4.3 


Commenti 


Linee 11100-11120: queste opzioni in ingresso fanno riferimento al 
modulo successivo. 

Ora dovreste poter spostare sullo schermo il piccolo cursore, dise¬ 
gnando o cancellando. 


12000 
12010 
12020 
12025 
12030 
2-VI ) 
12032 
12035 
12040 
12050 


REM TRACCIA LINEE 


X«X1 : Y=Y1 
BX=X2-X1+SGN C 


1 ) • BY=Y2-V1+SGN(V 


IF ABS < DY > > ABS < BX > THEH 12200 
SL=hBS <BY/BX)-„5 
FORICI T0 fìBSCDX) 

IF M0BO=1 THEH POKE FHPP<X>,FHPV<X 


12055 IF MOnO=0 THEH POKE FHF'PCH),FNF’ECX 


12060 IF SL>0 THEH Y=Y+SGN<DY>:SL*SL-1=G 
0T012060 

12070 SL-SL+FlBS ( DY/DX > 

12100 X®X+SGHCDX) : HEXT i 
12120 RETIJRH 
12200 SL=HBS (. DX/DV > -. 5 
12210 FOR 1 = 1 TO HBSCIiV) 

12220 IF M0B0= 1 THEH POKE FHPPGO,FHPVCX 


12225 IF MQBO=0 THEH POKE FHPP<X>,FNPE<X 


12230 IF SL>0 THEH X=X+SGHCDX) : SL=SL-1 ; G 
0T012230 

12240 SL=SL+fiBS(DX/DV > 

12250 Y=Y+SGHCDY> : HEXT I 
12300 RETURN 


Questo modulo dà modo di tracciare linee rette tra due punti defini¬ 
ti dall’utente. Si tratta di un adattamento del metodo noto come al¬ 
goritmo di Bresenham, e una sua versione viene spesso impiegata 
nei linguaggi BASIC provvisti di comandi di tracciamento linee. 

Linea 12025: i valori XI e Y1 sono stati definiti nel momento in cui 
l’utente ha battuto “1” — in quel momento sono state loro asse¬ 
gnate le posizioni X e Y del cursore. X2 e Y2 sono stati impostati 
tramite “2”. La linea verrà tracciata partendo da XI e Yl. 

Linea 12030: DX e DY vengono posti uguali alla distanza tra XI e 
X2, e Yl e Y2, più uno. La funzione SGN significa che non ha im¬ 
portanza se la distanza sia positiva o negativa (nel secondo caso si 
sommerà —1 invece di + 1). 
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Collaudo del modulo 3.4.3 


Ulteriori sviluppi 


Linea 12032: l’algoritmo di tracciamento fa uso della maggiore del¬ 
le due differenze come base per i suoi calcoli: è dunque più veloce 
avere due routine separate. 

Linea 12035: SL è la pendenza, o il rapporto tra DX e DY meno 0.5. 

Linea 12040: il ciclo ha la lunghezza della differenza tra le coordi¬ 
nate X. 

Linee 12050-12055: secondo che sia impostato il modo 0 o 1, viene 
cancellato o disegnato un solo punto della linea. Notate che non suc¬ 
cederà niente nei modi 2 o 3. 

Linea 12060: a seconda del rapporto tra DX e DY, SL può ora indi¬ 
care che il punto successivo deve spostarsi in su o in giù lungo l’asse 
Y. In questo caso si sposta la posizione Y e SL viene ridotto di uno. 

Linea 12070: ogni volta che viene impresso un punto, si aggiunge 
a SL il valore della pendenza. 

Linea 12100: la posizione X viene incrementata ad ogni iterazione 
del ciclo. Una volta ancora la funzione SGN s’incarica di trattare 
le linee che si muovono verso il basso lungo l’asse. 

Linee 12200-12250: esattamente la stessa routine, nei casi in cui DY 
sia maggiore di DX. 

A questo punto dovreste poter specificare un punto iniziale e uno 
finale (1 e 2) di una linea, e quindi tracciarla, o cancellare una linea 
esistente, in conseguenza dell’attivazione del modo 1 o 0. 

Questo programma è concepito come non più di un antipasto alle 
possibilità offerte dal modo bit-map. Un uso completo di questo mo¬ 
do grafico richiede qualche attenta considerazione di quanto desi¬ 
derate ottenere, e qualche spesso complessa procedura matematica 
per ottenerlo. Se doveste decidere di proseguire oltre, le tecniche qui 
fornite e le funzioni utilizzate per localizzare i singoli pixel semplifi¬ 
cheranno notevolmente il vostro compito. 

1) Perché non aggiungere una funzione che vi permetta il salvatag¬ 
gio su nastro di una pagina grafica? — Vi servirà un nastro piutto¬ 
sto lungo, ma la routine dovrebbe essere abbastanza semplice. 

2) I testi di grafica al calcolatore danno numerosi algoritmi che per¬ 
mettono il tracciamento di circonferenze o archi. Perché non aggiun¬ 
gere alla fine del programma un modulo scritto allo scopo? — Il prin¬ 
cipale inconveniente sarà la lentezza. 
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4. Il Commodore 64 
come segretario 


Presto o tardi, la più parte dei possessori di microcalcolatori com¬ 
prende che il nuovo amico digitale dà il meglio di sé nell’archiviare 
informazioni, elaborandole e presentandole in una varietà di modi 
che, realizzati manualmente, sarebbero estremamente laboriosi. Af¬ 
fronta quindi il compito di scrivere semplici programmi in grado di 
memorizzare i nomi e gli indirizzi degli amici, o di catalogare la pro¬ 
pria collezione di dischi. Può finire con una mezza dozzina di pro¬ 
grammi, ciascuno limitato a un singolo uso, e tuttavia ciascuno ba¬ 
sato praticamente sugli stessi metodi. 

In questo capitolo iniziamo una parte di programmi più sostanzio¬ 
si, esaminando come si possa scrivere un singolo programma in gra¬ 
do di soddisfare svariate esigenze di archiviazione, senza la costante 
necessità di riscriverlo ogniqualvolta si presenti l’eventualità di una 
nuova applicazione. 


Unitile ^ primo programma si chiama Unifile e, nella forma qui presenta- 

-- ta, è in grado di archiviare fino a 500 rcgistrazioni (, \ oltre a per¬ 
mettere all’utente di ricercare tra queste in modo nominale, di mo¬ 
dificare o cancellare delle voci. Al di là delle svariate applicazioni 
di un simile programma, spero che il semplice fatto di introdurlo 
in macchina e di capirne i metodi utilizzati vi fornisca numerosi spunti 
per ulteriori applicazioni. 

Unif le. lista delle variabili IN Indicatore (flag ) dell’awenuta inizializzazione del 

programma 

A%(499,X-1) Registra la lunghezza delle singole voci di ogni 
registrazione 

A$(499) Vettore di archiviazione principale 


In questo programma, e quando ciò non crei ambiguità nel contesto, si utilizzerà 
la parola registrazione per indicare l’elemento costituito da più voci. L’archivio (file) 
sarà l’insieme delle registrazioni. 

In una terminologia più formale le voci andrebbero definite come i campi di un re¬ 
cord (NdT). 
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BS(X-l) 


Contiene i nomi dei tipi delle voci per ogni registra¬ 
zione 

FF Flag per la determinazione del successo di una ri- 

, cerca dell’utente 

IT Numero di registrazioni effettuate 

PO Usata nella ricerca binaria per indicare il numero 

di campionamenti necessari alla ricerca 
PP Puntatore alla posizione iniziale della voce corren¬ 

te, proveniente da una registrazione, che deve esse¬ 
re stampata 

R$ Separatore usato nel salvataggio su nastro dei dati 

SI Puntatore temporaneo di ricerca per il modulo di 

ricerca da parte dell’utente 

SS Puntatore principale di ricerca nel modulo di ricer¬ 

ca binaria 

Tl$ Stringa di memorizzazione temporanea usata per co¬ 

struire una nuova registrazione 

TI%(20) Memorizzazione temporanea della lunghezza delle 

voci da costruire per una nuova registrazione 
X Contiene il numero di voci specificate per ogni file 

Z Indicatore del numero di funzione di programma da 

richiamare dal menu principale 

MODULO 4.1.1 11000 

11010 REM MENU 

11020 PEmmmmmmmmmwmwmmmmw. 

11030 POKE 5328ì,7:PRINT n :iPmM&MÌM»ÌI 
&HI5WJNIFILE" 

11040 PRINT" MK3FUNZIOHI DISPQNIEIL1 " 

11050 F'R I NT " PIPISI 1 > INTROBUZI ONE INFORMH 

ZIOHI" 

11060 PR I NT ":pJ 2 > RICERCR/VISURLI ZZfìZ ION 

E/M0BIFICHE" 

11070 FRINT"W 3 >RRCHIVIRZIONE BRTI" 

11080 PRINT"W 4>COSTRUZIONE NUOVO FILE 

li 

11090 PRINT"W 5>STOP 

11100 INPUT "iPESCEGLIERE Lfl FUNZIONE BES 

IBERRTfi : ";Z : PRINT 

11110 IF Z>3 OR IN=1 THEN 11140 

11120 PRINT 1 ' :TPMPlPMPMP*i » »I i 110N RNCORfi 

INIZIRLIZZRTfì.":FOR I=0 TO 1000 :NEXT 

11130 GOTO 1100O 

11140 ON Z GOSUB 13000,17000,18000,12000 
,11150:G0T0 11000 

11150 PRINT "MPlPlPlPlPMPlPlPJiiH&ISTENI BI R 
RCHIVIRZIONE CHIUSI" END 

Lo scopo del modulo è di presentare tutte le funzioni rese disponibi¬ 
li dal programma e di permettere all’utente di scegliere tra queste. 
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Commenti 


Collaudo del modulo 4.1.1 


MODULO 4.1.2 


In linea di massima, qualsiasi programma complesso, che non inizi 
con un menu ben formulato delle operazioni che svolge, è un pro¬ 
gramma di cattiva fattura. Se a questo punto non siete d’accordo 
con questa affermazione, lo sarete certamente in futuro, quando do¬ 
vrete tornare a un programma complesso che non è stato usato per 
alcune settimane e sarete costretti a impiegare molto tempo per scor¬ 
rere il listato, nel tentativo di ricordare che cosa fa e come. 

Linea 11030: un tipico uso dei versatili comandi di controllo del cur¬ 
sore del Commodore. La stringa pulisce lo schermo, muove il cur¬ 
sore in giù di una posizione, orizzontalmente fino al centro della li¬ 
nea, attiva la funzione d’inversione (RVS ON) e stampa in verde. 

Linee 11110-11130: nessun programma può girare se non sono state 
costruite le matrici che utilizza. In questo programma la variabile 
IN viene posta a 1 quando ciò accade. Se IN non è uguale a 1, le 
sole funzioni del menu disponibili sono l’inizializzazione (costruzione 
delle matrici) e lo stop. 

Linea 11140: per coloro ai quali questo comando risulta nuovo, 
ON...GOTO e ON...GOSUB sono semplicemente dei modi per accor¬ 
ciare lunghe enumerazioni di enunciati IF...THEN...GOTO (GOSUB). 
L’istruzione sceglierà nella lista la destinazione designata da Z. 

A questo punto si può solo controllare che il modulo presenti una 
pagina di menu ben ordinata e che accetti un ingresso. 11 solo in¬ 
gresso che non produrrà un messaggio d’errore è 5 — stop. 

12000 REM#********#**#***************** 
12010 REM STRUTTURA DE._ FILE 

12020 $Em**mm*MMMm*+*M*M*mm* 

12030 CLR : DIM A$<499> : FRI NT " 

«STRUTTURA DEL FILE" : IH-1 :R*=CHR$<13> 
12035 INPUT "KUCARICAMENTO DAL NASTRO <S 
XN> : ".; Q$ : IF Q$= " S " THEN 11000 
12040 INPUT "MfJSNIJMEP.O DELLE VOCI IH OGN 
I REGISTRAZIONE";X 
12043 DIM ET<X-1>,AX<499,X-1> 

12050 F'RINT "M"j:F0R 1=0 T0 X~1 PRINT "il 
NOME DELLA VOCE"J STRTC1 + 1);":"; : IMPUTO$ 

12060 ET<I>=0$^ NEXT I :GOT0 11000 

Questo modulo compie la fondamentale funzione d’inizializzare le 
matrici che verranno usate per memorizzare i dati di programma — 
finché non è stato chiamato, il programma non può essere usato. 
Una volta introdotti i dati, richiamare il modulo condurrà alla per¬ 
dita completa dei dati stessi — viene ripulita la memoria, pronta per 
un nuovo insieme di dati. 

L’uso delle principali variabili viene spiegato nella lista delle varia¬ 
bili e nel corso del commento che segue. 
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Commenti Linea 12030: notate che è necessario ripulire la memoria prima di 
dimensionare una qualsiasi matrice. Dimenticando di farlo si ha il 
messaggio d’errore RED1MMED ARRAY (matrice ridimensionata). 


Collaudo del modulo 4.1.2 

MODULO 4.1.3 


Commenti 


Linea 12040: il programma Unifile non impone all’utente il numero 
di voci che può contenere una registrazione tipo: dipende dall’uten¬ 
te specificarlo. Una volta fatto questo, il programma configura la 
matrice puntatore A% e il vettore dei nomi delle singole voci B$ di 
conseguenza. 

Linee 12050-12060: specificato il numero di voci in ogni singola re¬ 
gistrazione, viene assegnato un nome a ogni voce, per esempio: no¬ 
me, indirizzo, numero telefonico. Notate che, dal momento che è 
stata pulita la memoria, questo modulo non può tornare al menu 
con un RETURN, ma deve essergli assegnata una specifica GOTO. 

Chiamando questo modulo, dovrebbe venirvi chiesto di specificare 
il numero di voci del file e di assegnare un nome alle singole voci. 


13000 REmmmmmmmmmmmmmmm*. 

13010 REM REOISTRRZIONE NUOVE VOCI 
13020 REmmmmmwmmmmmmmmmw.* 

13030 11 $="": pr i nt n ramitiwssfo'oc i " 

13040 PRINT "jfrititiiitiiiiiiiiiiì", II; " 

VOCI PRESENTI" 

13050 PRINT "M3FUNZI0NI DISPONIBILI : " 
13060 PRINT "iiDilINTR0DUZIOHE VOCE SPECI 
FICRTfl" 

13070 PRINT "n>§E:RTTERE 'ZZZ' PER TORNAR 
E RL MENUiW" 

13080 F0R 1=0 T0 X-l : PRINT B$<IIN 

PUT Q$ •’ IF Q$="ZZZ" THEN RETURN 

13830 IFLEN<T 1$ > +LEN<Q$ >0255THEN 13110 

13108 PRINT "ftREGISTRAZIONE TROPPO LUNGA 

.":F0R J=1 T0 3000 : NEXT J:RETURN 

13110 T1 $=T 1 $+Q$ ’ Tr/.i I ) =LEN<T 1 $> : NEXT I : 

PRINT ATTENDERE" 

13120 GQSIJB14000 : G0SUB 15000 : G0T0 13000 


Il compito di questo modulo è accettare in ingresso le voci specifica¬ 
te dall’utente e compilarle in forma di registrazione, pronta per 
l’archiviazione. 

Linea 13080: usando la variabile X per determinare il numero di ite¬ 
razioni, il programma richiede all’utente di introdurre ciascuna del¬ 
le voci nominate. 
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Linee 13090-13100: ogni singola registrazione può avere lunghezza 
massima di 255 caratteri — la lunghezza massima di una stringa sul 
64. Queste linee controllano che non si superi tale limite. 



Collaudo del modulo 4.1.3 


MODULO 4.1.4 


Linea 13110: la voce introdotta viene aggiunta alla stringa di me¬ 
morizzazione temporanea TIS e la lunghezza provvisoria della regi¬ 
strazione viene posta nel vettore Tl%. Notate che TI% non era stato 
dichiarato nel modulo d’inizializzazione. Menzionandolo semplice- 
mente nel corso del programma, lo si dimensiona automaticamente 
a 10 elementi. Se desiderate avere registrazioni con più di 10 voci, 
è necessario dichiarare un vettore Tl*% di maggiori dimensioni nel 
modulo d’inizializzazione. 

A questo punto, scrivendo dei RETURN temporanei alle linee 14000 
e 15000, dovreste poter richiamare questo modulo così che vi sia chie¬ 
sto di inserire le voci sotto i nomi da voi specificati. Notate come 
non ci sia ancora alcuna disposizione per inserirle in archivio. 


14800 REhmmmmmmmm-mmmmmmm 

14010 REM RICERCA BINARIA 

14020 

14030 IF IT=0 THEN SS=0:RETURN 
14040 P0=INT <LOG<IT >/LOGC2 > >■SS=21P0-1 
14050 F0R I=P0 TO 0 STEP-1 
14060 IF A$<SS.KT1$ THEN SS=SS+2tI 
14070 IF Ai(SS>>T 1 $ THEN SS=SS-2TI 
14080 IF 3S<0 THEN SS=@ 

14090 IF SS>IT-1 THEN SS=IT-1 

14100 NE/T I :IF Ai<SS)<T1i THEN SS=SS+1 

14110 RETURN 


Tra tutti i moduli di questo programma è quello che probabilmente 
vi apparirà più astruso. In realtà è molto semplice, ma prima è ne¬ 
cessario comprendere i principi basilari che sottostanno al metodo 
di ricerca noto come ricerca binaria, che riduce in modo stupefa¬ 
cente la quantità di lavoro necessario per trovare il posto giusto di 
un nuovo elemento in una lista ordinata di dati. 

Considerate l’esempio seguente: 

Abbiamo costruito un archivio contenente 2000 nomi in ordine alfa¬ 
betico ed è necessario inserire un nuovo nome, la cui posizione cor¬ 
retta sarà la 1731, cosa tuttavia ancora da determinare. La routine 
di ricerca inizia dunque esaminando il primo nome del file, stabili¬ 
sce che il nuovo elemento dovrà essere successivo a questo e si spo¬ 
sta al secondo nome. Alla fine, dopo aver esaminato 1732 nomi, la 
routine di ricerca ne trova uno che dovrà essere preceduto dal nuo¬ 
vo nome, concludendo così che ha individuato il posto giusto per 
inserire il nuovo elemento. È questa una procedura diretta e per di 
più una procedura semplice da implementare, ma confrontatela con 
quella che segue. 

La procedura di ricerca inizia esaminando il nome alla posizione 1024 
del file, dato che 1024 è la più alta potenza di 2 che può trovare po¬ 
sto nel numero totale di nomi del file. Il nome 1024 risulta essere 
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Collaudo del modulo 4.1.4 


MODULO 4.1.5 


alfabeticamente precedente al nuovo nome, dunque la routine ag¬ 
giunge 1024/2 ai primitivi 1024 e si porta sul nome numero 1536. 
Questo precede ancora il nuovo nome, così viene aggiunto 1024/4 
a 1536, che fa 1792. Ora accade qualcosa di diverso — il nome nu¬ 
mero 1792 è alfabeticamente maggiore del nuovo nome — la solu¬ 
zione è sottrarre 1024/8, ottenendo 1664. La routine di ricerca con¬ 
tinua aggiungendo e sottraendo potenze decrescenti di 2 per ottene¬ 
re un percorso di ricerca di questo tipo: 

1644 (somma 64) 

1728 (somma 32) 

1760 (sottrai 16) 

1744 (sottrai 8) 

1736 (sottrai 4) 

1732 (sottrai 2) 

1730 (somma 1) 

Il numero di confronti necessari per trovare il posto esatto nel file 
è stato ridotto da 1732 a 10. Dovrebbe risultare evidente la potenza 
del metodo di ricerca binaria. 

Linea 14030: non ci sono ancora elementi nel file, dunque la posi¬ 
zione non va calcolata. 

Linea 14040: la funzione LOG viene usata per calcolare la massima 
potenza di 2 contenuta nel numero corrente degli elementi. 

Linee 14050-14100: si esegue il salto binario, con due test per con¬ 
trollare che la ricerca non stia superando i limiti del file. Al termine 
del ciclo viene eseguito un confronto finale e la posizione esatta è 
determinata e memorizzata nella variabile SS. 

Un collaudo completo di questo modulo dovrà attendere sino all’av- 
venuta introduzione del successivo, ma un controllo della correttez¬ 
za sintattica si può avere semplicemente chiamando il modulo d’in¬ 
serzione, dal quale viene a sua volta chiamato il modulo in esame. 


15000 


15010 

REM 

IN 

SERZIOHE 




15820 


15030 

IF 

IT= 

0 THEN GOTO 

15060 



15040 

FOR 

1 = 

IT T0 SS+1 

STEP-1 

:fl$(I 

)=fi$<i 

1 / 

15050 

FQR 

J= 

0 T0 X-r-flJi 

a, j>= 

r*;< i- 

1, J)=N 

EXT J, 

I 






15060 

fì$( 

SS) 

=T1$ ; FOR 1= 

0 70 x 

-1 fìX 

< ss.. I > 

=nxa 

: >:NEXT 

:IT=IT+1 ; RETURN 
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Determinata la posizione esatta, questo modulo sposta tutte le regi¬ 
strazioni da quella posizione in avanti, in su di un posto nell’archi¬ 
vio, contemporaneamente ai puntatori a queste associati, posti in A%. 



Collaudo dei moduli 4.1.4 e 4.1.5 


MODULO 4.1.6 


Commenti 


La nuova registrazione viene inserita nella posizione SS dell’archi¬ 
vio, mentre i puntatori che indicano la lunghezza delle singole voci 
vengono posti nella corrispondente posizione di A°7o. 

Dovreste ora poter archiviare delle registrazioni che saranno poste 
automaticamente in ordine alfabetico. Per controllarlo, dovete fer¬ 
mare il programma e stampare, in modo immediato, i contenuti di 
A$(0), A$(l) ecc. Dovreste anche controllare che i puntatori, memo¬ 
rizzati alla stessa linea di A^o, puntino effettivamente all’ultimo ca¬ 
rattere di ogni voce della registrazione. 


18900 

18010 REM FILE DATI 

18020 

18030 PRIMI "SEPQSIZIOH ARE IL NASTRO, QU 
INDI PREMERE 3RETURN5— " 

18040 INPUT "IL MOTORE SI ARRESTA IN MOD 
0 AUTOMATI CO " ; Q$ • PQKE 192, 7 POKE 1 .• 39 
18050 PRI NT " MSFIJNZIONI DISPONIBILI " : PR 
INT "sii 1 >SALVATAGGIO DATI" 

18055 PRIHT " 2>CARICAMENTO DATI" 

18060 INPUT " MSFUNZI ONE RICH1 ESTÀ : ", Q '• ON 
Q GOTO 18070,18120 : RETURN 
18070 POKE 1,7 : FOR 1=1 TO 2000 ; NEXT 
18088 OPEN 1,1,1,"UNIFILE" : PR1NT#1,IT,R$ 

1 8090 FOR I =0 TU IT-1 : PRINT#1,A$ < I> =FOR 
J=0 TO X-l : PRINT#1,Azi<I,J> NEXT J, I 
18100 FOR I=0 TU X-1 ; PRINT#1, B$ <I> : NENT 
18110 CLOSE 1:RETURN 

18120 OPEN 1,1,0,"UNIFILE" : INPUT#1,IT,X= 
IF INOITHEN DIM B$<X-1 ),AXC499,X-l> 
18130 FOR 1=0 TO IT-1 

18132 GET# 1, T$ : IF T$OCHR*< 13> THEN A$< I 
;'=A$«:i)+Tf :G0T0 18132 

18134 FOR ,T=0 TO X-1 : I NPUT# 1, AX <1, J ) : NEX 
T J, I 

18140 FOR I=0 TU X-1■INPUT#1, B$ <I) NEXT 
18150 CLOSE l:RETURN 


Ora che potete archiviare dei dati, la prima cosa da fare è memoriz¬ 
zarne alcuni sul nastro, così non dovrete sobbarcarvi al lavoro di 
reinserire tutti i dati ogni volta che battete nuovi moduli o modifi¬ 
cate le linee per correggere degli errori. 

Linea 18040: posizionato il nastro, ponetelo per prima cosa nel mo¬ 
do RECORD (registrazione) o PLAY (riproduzione) e fatelo scorrere 
esattamente fino al punto indicato dal contatore del nastro. Rag¬ 
giunto questo punto, l’azionamento di RETURN, tramite le due PO¬ 
KE, ferma il motore del registratore a cassette. 
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Collaudo del modulo 4.1.6 

MODULO 4.1.7 


Linea 18070: viene riacceso il motore del registratore prima di regi¬ 
strare i dati e un’intestazione viene stampata in aggiunta a quella 
posta automaticamente dal sistema operativo — ciò contribuisce ad 
essere sicuri di non registrare sul tratto non magnetico del nastro, 
qualora stiate iniziando dal principio. 

Linee 18120-18140: vengono ora richiamati i dati stampati nel file. 
Notate che, dato che le stringhe del vettore di archivio possono es¬ 
sere più lunghe di 80 caratteri, non è possibile usare un’istruzione 
INPUT. Ogni carattere delle stringhe di archiviazione viene invece 
raccolto separatamente usando GET, e ogni riga viene considerata 
completa quando si raccoglie dal nastro un carattere di ritorno 
carrello. 

La semplicissima prova di questo modulo si riferisce al fatto di po¬ 
ter introdurre dati nel programma, salvarli su nastro e ricaricarli in 
seguito. 

17000 **************** 

17010 REM RICERCA 

17020 REmmmmmmmmmmmmmmm.*. 

17030 31=0: FF=0 : PRI NT " IC 

ERGA" 

17040 FRI NT "DISFUNZIONI DISPONIBILI:" 
17050 PRINT "Mi >«INTR0DURRE LA VOCE DA 
RICERCARE" 

17060 PRINT "si ^PREMETTERE '111' PER RI 
CERCA INIZIALE" 

17070 PRINT "■ >fiPREMETTERE 'SSS' PER RI 
CERCA SPECIALE" 

17080 PRINT 'H > fili SRE TURNI PER LA PRIMA V 
0CE DEL FILE" 

17090 PRINT 

17108 Tl$=" " : INPUT".TISINTRGIHJRRE LA FUNZ 
IONE RICHIESTA : " ; Tl$ 

17110 IF LEFT$<T1$,3)0"IH" THEN 17140 
17120 T1$=RIGHT$C T1 $ ,LENCT1 $ >-3>:G0SUB 1 
4000 •• S1 =SS : IF S1 > IT-1 THEN RETURN 
17130 GOTO 17240 

17140 IF LEFT$<T1$;3>O"SSS" THEN 17190 
17150 FF=8:T1 $=R IGHT $ C T1$,LEN(Tl$)-3> : F0 
R I=S1 T0 IT—1 : F0R J=1 TU LEN(A4CI) > 
17160 IF MID$<fl$<I>,J,LEN<T1$>)=T1$ THEN 
FF=1 :S1 = I :J=LEN<R$CI>>: I=1T-1 
17170 NEXT J jI ; IF FF=1 THEN T1*="SSS"+T1 
$:G0T0 17240 
17180 RETURN 

17190 IF Tl$="" THEN 17240 
17200 FF=0 : FOR I=S1 TO IT—1 :PP=0:F0R J=0 
T0 X~1 
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Commenti 


17210 i f mi m <: r$ a >,pp+ i , r y .>: i,j>- pp>=ti ■$ 
THEN FF=1 : S1=I :J=X- 1 : 1 = IT-1 
17220 PF’=AX ( I.. .J> : NEXT J:NEXT I : IF FF=1 T 


HEN 17240 
17230 RETURN 

17240 IF S1MT-1 THEN S1 = IT-1 

17250 IF IT=er THEN RETURN 

17260 IF SK0 THEN S1=U 

17270 PRINT "SBBREGI STRAZI ONE ";S1+1 

W" : F‘P=0 

17280 FOR I =0 TO X-1 : PRINT "Si" ;B$<I>; M • S 
" ; MI D$ <A$ Sl>, PP+ 1, RX<SI, I )-PP> 

17290 PF‘=RX<SI,I) :NEXT I : Sl=Sl+i : PRINT " 

«ili»»»»»!" 

17300 PRINT ".'SiSRICERCRS «FUNZIONI DISPON 
IBILI : " 

17310 PRINT "W ■>aSRETURN" REGISTRAZIONE 
SEGUENTE" 


17320 PRINT 
17330 PRINT 
CERCA" 

17340 PRINT 
PUNTATORE" 
17350 PRINT 
NU" 


PER CORREGGERE" 
*>!!'• CCC X PER CONTINUARE RI 

i>5Ì- #' +NUMERO per muovere 

B>J" ZZZ"' PER TORNARE AL ME 


17360 P$=" " : IHPIJT " :«3F UNZI ONE RICH1 ESTÀ 

•• ; p|J: 

17370 IF P$="CCC" THEN 17110 

17380 IF Pf-"" THEN 17240 

17390 IF P$="RAA" THEN GOSUB 16000:GOTO 

17240 


17400 IF P$="ZZZ" THEN RETURN 

17410 IF LEFT$<P$,1>="#" THEN S1=S1+VRL< 

MID$< P $,2 >)-1 : GOTO 17240 

17420 S1=S1—1 : GOTO 17240 


Dopo aver posto i dati nel 64, sarebbe bello pensare di potervi acce¬ 
dere nuovamente. Lo scopo di questo modulo è rendere possibile 
proprio questo, recuperare le informazioni memorizzate in quella 
varietà di forme che rendono più utile il sistema d’archiviazione. 

Linee 17110-17130: se la voce da cercare viene fatta precedere dalle 
lettere III, si richiama il modulo di ricerca binaria, per trovare una 
registrazione che inizi con le lettere specificate (oppure la più vicina 
alla posizione esatta, se non è presente una registrazione corrispon¬ 
dente). Notate che non sarà necessariamente la prima voce dell’ar¬ 
chivio a soddisfare la condizione, così, se state usando la funzione 
di ricerca iniziale per trovare la prima registrazione che inizi, per 
esempio, con “L”, otterrete una tale registrazione, e potrete scor¬ 
rere l’archivio all’indietro per stabilire se si tratti della prima. II1LA 
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Collaudo del modulo 4.1.7 


MODULO 4.1.8 


si porterebbe più vicino, mentre IIILAAAA dovrebbe risolvere il pro¬ 
blema, a meno che non stiate memorizzando dei nomi particolar¬ 
mente strani. 

Linee 17140-17180: facendo precedere SSS alla voce da ricercare, si 
avrà il risultato di scandire l’intero archivio in cerca della data com¬ 
binazione di caratteri — non è necessario che sia una voce comple¬ 
ta. SSSLO troverà qualsiasi registrazione contenente LONDRA, LO¬ 
SANNA o COLONIA. Necessariamente questa ricerca è più lenta di 
qualsiasi altra. 

Linea 17190: se avete premuto RETURN, senza altri ingressi, verrà 
stampata la prima voce dell’archivio. 

Linee 17200-17230: qualsiasi altro ingresso verrà interpretato come 
una voce completa da ricercare; verranno restituite solo quelle regi¬ 
strazioni che contengono una voce esattamente uguale. Notate, in 
questa routine, come la matrice dei puntatori A%, che contiene la 
posizione dell’ultimo carattere di ogni voce di una registrazione, ven¬ 
ga utilizzata per estrarre da questa varie voci, anche in assenza di 
marcatori visibili (nel caso la registrazione venisse stampata diretta- 
mente). 

Linee 17270-17290: viene stampata sullo schermo la registrazione tro¬ 
vata dal modulo di ricerca. 


Linee 17300-17420: visualizzata una registrazione, il programma dà 
ora facoltà di visualizzare la successiva, di correggere quella trova¬ 
ta, di continuare la ricerca impostata, di spostarsi su un’altra regi¬ 
strazione impostando NN (ove NN è un numero positivo o negativo 
per muoversi lungo l’archivio), o di ritornare al menu. Se non viene 
proposto un ingresso riconoscibile, viene stampata di nuovo la stes¬ 
sa registrazione. 


A questo punto dovreste poter visualizzare qualsiasi dato immagaz¬ 
zinato e cercarlo tramite i metodi descritti. Non è ancora possibile 
correggere le registrazioni. 


16000 

16010 

16020 

16030 

16040 


REmmmwmmmmmmww.MWM.mm 
REM MODIFICA REGISTRAZIONI 
REm*mm**m*mmmm*m**x*M*% 

S 1 ss‘3 1 — 1 : T1 $— 1111 

PP=0:FOR 1=0 T0 X-l '■ FRI NT ":MSREGI 


STRAZI ONE ";Sl + l; " 

16050 PRINT " Si" ; E$ < I > ; " : 3" ; MI D$ < R$ <S1 >, PP 

+1 > Az« ( S1 > I '• — pp ') 

16060 ' PR I NT " ®JtìPMtìaMi!M«Pl?K>*ÌÌÌ»»r»iaiOD 
IFICAI" 

16070 PRINT "iCF UNZIONI DISPONIBILI : " 
16080 PRINT "M i>SiSF:ETURNi VOCE SUCCESSI 
VA" 
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16090 FRI NT " l>BiIHTRODURRE UNA NUOVA VO 
CE PER SOSTITUIRE QUELLA VISUALIZZATA” 
16100 FRI NT " i>li HDD' - CANCELLA L'INTERA 
REGISTRAZIONE” 

16110 FRI NT " *>ii'ZZZ' NON MODIFICA LA R 
EGISTRAZIONE E TORNA A SPICERCAI” 

16120 Q$= " " : INPIJT " MSFUNZI ONE RICHI ESTÀ • 

".; Q$ 

16130 IF Q:f=”ZZZ" THEN RETURN 

16140 IF Q$~"" THEN Q$=MID$<A$<S1>,PP+1, 

AN<S1, I >~PP> 

16150 IF Q*="DDD"THEN GOSUB 16130 : RETURN 
16160 PF'-'AZ (. SI, I > : T1 $=T 1 $+Q$ : T1 7. ( I > =LEN ( 
T1 * >^ NENTI :GOSUB 16130 : GOSUB14000 
16170 SI=SS:GOSUB 15000 : RETURN 
16180 FOR J=S1 TO IT-1•A$(J>=Af(J+l>•FOR 
K=0 TO X-l :AX<J.K>=A?iCJ+liK> =NEXT K,J 
16190 IT=IT-l:RETURN 


Lo scopo di questo modulo è di mettervi in grado di apportare mo¬ 
difiche alle voci delle registrazioni già memorizzate, senza doverle 
ribattere, e di cancellare singole voci o l’intera registrazione, qualora 
voleste farlo. 

Commenti Linea 16140: il metodo con cui il modulo opera è analogo a quello 
del modulo d’ingresso principale, con l’eccezione che, se si preme 
RETURN, la voce introdotta viene definita come voce corrente della 
visualizzazione. 

Linea 16180: la routine sposta verso il basso di una posizione tutte 
le registrazioni seguenti, cancellando quella corrente. 

Collaudo del modulo 4.1.8 Ora dovreste riuscire a correggere voci di una registrazione raggiunta 

tramite il modulo di ricerca, oppure cancellarla completamente. Se 
questo modulo funziona come dovrebbe, il programma è pronto 
all’uso. 

Riepilogo A questo punto avete terminato l’inserimento di un programma com¬ 
plesso e sostanzioso che spero troverete utile in svariate applicazio¬ 
ni. Contemporaneamente avete appreso numerose tecniche che sa¬ 
ranno d’aiuto ogniqualvolta deciderete di memorizzare ed elabora¬ 
re dati non numerici in programmi da voi concepiti. 

Se vi siete preoccupati di comprendere, mentre le stavate scrivendo, 
le funzioni delle singole linee così come quelle complessive dei mo¬ 
duli, dovreste esservi convinti che i programmi complessi e sostan¬ 
ziosi non sono sempre inaccessibili come invece si crede. Tramite un 
approccio modulare, che divide il programma in una serie di compi¬ 
ti eseguibili, applicazioni come quella presente possono essere svi¬ 
luppate da parte di chiunque sia pronto a dedicare un po’ di tempo 
allo scopo. 
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Ulteriori sviluppi 1) Se possedete una stampante, vorrete anche avere la possibilità di 
stampare su carta singole registrazioni o gruppi di queste. Il modo 
più semplice sarà l’aggiunta di una funzione alla seconda parte del 
modulo di ricerca. 

2) Una sfida interessante potrebbe consistere nello stabilire se riu¬ 
scite a dare al programma la capacità di trattare dati sia numerici 
sia non numerici. Ciò comporterebbe la costruzione di un vettore 
numerico di 500 elementi, con funzioni per introdurvi valori ed even¬ 
tualmente qualche comando di ricerca tra le linee, del tipo “trova 
tutte le registrazioni contenenti valori maggiori di X”. Esiste un cam¬ 
po piuttosto vasto di applicazione dove sarebbe vantaggioso poter 
trattare uno o più elementi di tipo numerico. 


4.2 Unitile II 


Dopo aver introdotto e collaudato Unitile, l’ultima cosa che potre¬ 
ste voler affrontare è una variazione sul tema. In questo caso senti¬ 
tevi pienamente liberi di saltare, per ora, questo programma. Vi ri¬ 
tornerete quando sentirete l’esigenza di risolvere almeno alcuni dei 
problemi che Unitile non è in grado di affrontare. Unifile è adegua¬ 
to a tutti quei dati con una struttura regolare. Per contro, si hanno 
numerose applicazioni in cui, semplicemente, non si sa in anticipo 
quante voci saranno contenute in una particolare registrazione. Po¬ 
treste, per esempio, voler catalogare i vostri libri. Sarebbe possibile 
adattare il programma Unifile originale per avere autore e titolo, ma 
probabilmente, se possedete più di un libro di uno stesso autore, do¬ 
vreste sprecare tempo e spazio per riportare il nome dell’autore su 
ogni singolo titolo. 

Unifile II è progettato per affrontare simili archiviazioni meno strut¬ 
turate. Risulta più versatile di Unifile per il fatto che potete conti¬ 
nuare ad aggiungere a una registrazione tante voci quante ne volete, 
entro il limite complessivo di 255 caratteri, e potete definire una più 
complessa forma di ricerca rivolta a qualsiasi registrazione, conte¬ 
nente fino a 10 obiettivi di ricerca. Questa versatilità comporta, tut¬ 
tavia, il prezzo di una maggiore difficoltà nell’uso del programma 
— non sono presenti i pratici messaggi che semplificano l’introdu¬ 
zione delle voci. Inoltre, se volete marcare le voci di una registrazio¬ 
ne con un nome, dovete specificarlo e aggiungerlo in forma 
codificata. 

Dal momento che il programma è strutturalmente simile a Unifile, 
il modo più agevole per introdurlo è cominciare con il caricamento 
di Unifile stesso. Inserendo Unifile II scoprirete che molte delle li¬ 
nee di programma sono identiche, o quasi, anche se di diversa nu¬ 
merazione. Rinumeratele prima di procedere nelle modifiche, così 
risparmierete una gran quantità di tempo. 


Unifile II: lista delle variabili B$(49) 

EX 

FNA(Sl) 


Contiene i nomi (opzionali) delle voci 
Indicatore temporaneo dell’aggiunta di una voce ex¬ 
tra a una registrazione, nel modulo di correzione 
Funzione che ricava dal valore dell’ultimo caratte¬ 
re di una registrazione il numero di voci ivi presenti 
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MODULO 4.2.1 


MODULO 4.2.2 


FNB(Sl) 


NN 

SS$ 

52 

53 

TI%(49) 

TN 


Funzione che calcola la posizione deirultimo carat¬ 
tere di una voce in una registrazione. Va usata in 
un ciclo con una variabile che specifichi il numero 
della voce 

Variabile temporanea che indica il numero di voci 
entro una registrazione da introdurre 
Voce estratta da una registrazione sulla base di FNA 
e FNB 

Puntatore temporaneo usato durante le ricerche 
Memorizzazione temporanea del valore di SI duran¬ 
te ricerche multiple 

Memorizza temporaneamente le posizioni delle vo¬ 
ci entro una registrazione da introdurre 
Numero di tipo di una voce, se specificato 


11000 REM****************************** 
11010 REM MENU 

11020 REM****************************** 

11030 POKE 53281, 7 ■ PRINT " 

WISMJNIFILE" 

11040 PRIHT" MSEFUHZIOHI DISPONIBILI :“ 

11050 PRIHT "mn 1>INTRODUZIOHE IHFORMfì 


ZIOHI" 

11060 PRIHT"» 
E/MODI FICHE" 
11070 PRIHT"» 
11080 PRIHT"» 
11090 PRIHT"» 


2 > RI CERCfi/V I SIJfiL I ZZRZ I OH 

3)HOMI DI TIPO" 

4>RRCHIVIRZIOHE URTI" 

5>COSTRUZIONE HUOVO FILE 


11100 PRIHT"» 6>STOP 

11110 IHPUT "M3SCEGLIERE Lfl FUHZIOHE DES 

IDERRTfl:";Z:PRIHT "IT 1 

11120 IF Z>4 OR IH=1 THEH 11150 

11130 PRIHT 1 'IT»»»»»»»?*» » » » 1 HOH HHCORR 

INIZIALIZZRTfl.":FOR 1=0 TO 1000=HEXT 

11140 GOTO 11000 

11150 OH Z GOSUB 13000.. 1700O. 19000.20000 
.12000.11160 : GOTO 11000 
11160 PRIHT "W«WPMel(!MeIi»»»liSISTEMI DI fi 
RCHIVI RZ I OHE CHIIJSI " : EHD 


Un modulo di menu standard. 


12000 

12010 

12020 

12030 

1 

12040 

1 


REM IHIZIRLIZZfiZIOHE DEL FILE 
REM****************************** 
CLR = DIM fi$ < 499 > . B$ ( 49 ) . T1 5i < 49 ) : I H= 


DEF FNflCS1>=RSC <RIGHT$<R$(S1>.!>> + 
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MODULO 4.2.3 


12050 DEF FHE < S1 > =HSC < RI GHT# < fi $■ < S1 ), FNfi C 
SlH + 1)) 

12060 GOTO 11000 

Inizializza le matrici per tornare subito al menu. 

13000 

13010 REM REGISTRAZIONE NUOVE VOCI 

13020 REmmmmmmmmmmmmmmm:* 

13030 T 1$= " " : NN=-1 : TH=0 : FRI NT " 3iaiii»li»l 

mzi/oc i " 

13040 FRINÌ "WMiBUiiM&iiMiilBii" 1 IT; " 
VOCI PRESENTI" 

13050 FRINT "WSFUNZIONI DISPONIBILI :" 
13060 FRI NT " NTRODUZI ONE VOCE SFECI 

FICfiTfi" 

13078 FRI NT" m>W*' PER TERMINARE REGISTA 
AZIONE CORRENTE" 

13080 FRI NT " l>4T TNN PER INTRODURRE UN 
NOME DI TIPO" 

13090 FRINÌ ATTERE 'ZZZ' PER TORNAR 

E AL MENUSBfl" 

13100 INPUT Q$ 

13110 IF Q$*"ZZZ" THEN RETURN 
13120 IF LEFT*CQ$, 1)0" T" THEN 13150 
13130 TN=VAL <MID$<Q$, 2 ) ) :TN=TN+18 
13148 PRI NT " :i" ; B$ < TN-11);": » ; : GOTO 1310 
0 

13150 IF TNO0 THEN Q$=Q$+" t"+MID#<STR$C 
TN> > 2 ) ’■ TN=U 

13160 IFLEN CTI# ) +LEN C Q# ) +NN+20255THEN 1 
3180 

13170 FRI NT "REGISTRAZIONE TROPPO LUNGA 
.":FOR J=1 TO 3000 ; NEXT J:RETURN 
13180 IF Q#="#" THEN GOTO 13200 
13190 T1 #=T 1 #+Q# : TiziCNN+1 > =LENCTI#): NN=N 
N+l : GOTO 13100 

13280 FOR 1=8 TO NN:Tl$=Tl$+CHR$CTi;iCI)) 

:NEXT:T1$=T1T+CHR#C NN+1) 

13210 PRINT "^ATTENDERE":GOSUB14000 :GOS 
UB 15000:GOTO 13000 

Questo modulo è equivalente a quello d’ingresso di Unifile, ma è 
più complesso per due motivi: 

1) Devono essere presenti delle funzioni per dire al programma quan¬ 
do è finita una registrazione. Ciò si ottiene tramite un asterisco non 
seguito da altri dati. 

2) Per la mancanza di una struttura regolare, è impossibile fornire 
dei messaggi regolari per i nomi delle voci da introdurre. Tuttavia 
nel programma è previsto di marcare le voci. I nomi e i numeri da 
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Commenti 


Collaudo del modulo 4.2.3 


MODULO 4.2.4 


MODULO 4.2.5 


assegnare loro vengono definiti in un modulo seguente — in questo 
modulo è possibile aggiungere il nome a una voce, inserendo prima 
di tutto il simbolo “1” seguito dal numero precedentemente asse¬ 
gnato al nome di tipo. 

Linee 13100-13140: se una registrazione inizia con il simbolo “1”, 
i caratteri seguenti vengono considerati il numero del nome da asso¬ 
ciare alla voce da inserire. Il messaggio di input viene ora ripetuto 
sotto il nome di tipo. Il numero di tipo viene memorizzato al termi¬ 
ne della voce e il suo valore viene aumentato di 10 in modo che sia 
sempre un numero di due cifre (ci sono 50 possibili numeri/nomi 
di tipo). 

Linea 13200: alla stringa di voci costruita vengono ora aggiunti al¬ 
cuni caratteri il cui valore di codice indica la posizione dell’ultimo 
carattere di ogni voce. All’estremità finale della stringa viene aggiunto 
un carattere il cui valore di codice è uguale al numero di voci della 
registrazione. Notate che, durante il salvataggio su nastro delle re¬ 
gistrazioni, questi caratteri vanno tradotti in numeri, dal momento 
che potrebbero uscire dal campo di quelli che è possibile salvare sot¬ 
to forma di carattere. 

Non è possibile un controllo completo del modulo, ma si può avere 
una prova di esecuzione introducendo dei RETURN temporanei alle 
linee 14000 e 15000. Dovreste quindi riuscire a introdurre delle voci 
e terminare una registrazione con un asterisco. 

14000 rem##**#****#*********#*#***#*#** 

14010 REM RICERCA BINARIA 

14020 REM****************************** 

14030 IF IT=0 THEN SS=0 : RETURN 

14040 P0—INT <LOG<IT)/LOG(2>> : SS~2tP0-1 

14050 F0R I=P0 Tu 0 STEP-1 

14060 IF A*<SS)<T1* THEN SS=SS+2TI 

14070 IF A*<SS»T1* THEN 3S=SS-2fI 

14080 IF SS<0 THEN SS=Ó 

14090 IF yS5" IT-l THEN SS=IT-1 

14100 NE/T I : IF fl*(SSXTl* THEN SS=SS+1 

14110 RETURN 

Un normale modulo di ricerca binaria come in Unifile. 

15000 REM##*####*# 

15010 REM INSERZIONE 

15020 REM****************************** 
15030 IF IT=0 THEN GOTO 15050 
15040 F0R I=IT T0 SS+1 STEP-1:A$<I>=A$<I 
-1>: NE/T 

15050 A$(SS)=T1$ : IT=IT+1: RETURN 

Un semplice modulo d’inserzione. 
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Collaudo dei moduli 4.2.44.2.5 


MODULO 4.2.6 


Collaudo del modulo 4.2.6 


MODULO 4.2.7 


Ora dovreste poter introdurre delle voci e salvarle nel vettore d’ar¬ 
chiviazione principale (AS). Un controllo è possibile solo con i co¬ 
mandi diretti da tastiera. 

13000 REmmmmmmmmmmmmmmm*. 

19010 REM HOMI DI TIPO 


19030 FOR 1=0 TO 49 STEP 10 

19040 PRINT"3Oi»»»»»Ì»HtìW0MI DI TIPO" 

19050 PRINT "Si";:FOR j=i TO I + 10:PRINT J 

+ 1;"V ;B$<J) : NEXT J 

19060 PRINT ".'SEF UNZIONI DISPONIBILI:" 

19070 PRINT " ■>:!■-ZZZ'‘ TERMINR" 

19080 PRINT " ■>*' III VOCE/CANCELLA" 
19090 PRINT " »>a"NHN-' PAGINA SUCCESSIVA 

II 

19100 INPUT " 3FUNZIONE RICHIESTÀ :";Q$: IF 
Q$-"ZZZ" THEN RETURN 
19110 IF Q*="NNN" THEN NEXT I:RETURN 
19120 IF Q$0"III" THEN GOTO 19000 
19130 INPUT "NUMERO DELLA POSIZIONEQ 
19140 PRINT "iWOME DEL TIPO 0 SRETURNi P 
ER CANCELLARE :" 

19150 Q$= " " : I NPUT 0:$ ■ Et < Q~ 1 > =Q$ ; GOT01904 
0 


Questo è un modulo nuovo che permette all’utente di definire i tipi 
delle singole voci. Il modulo non fa altro che visualizzare i contenu¬ 
ti del vettore BS in gruppi di 11 e dà facoltà all’utente d’inserire un 
nome in una data posizione della matrice. Una volta introdotto, un 
nome di tipo si può apporre a una voce, oppure inserire come de¬ 
scritto nel Modulo 4.1 nomi si possono ridefinire semplicemente scri¬ 
vendo un nuovo nome nella posizione occupata dal precedente, op¬ 
pure si possono cancellare premendo RETURN quando viene richie¬ 
sto un nuovo nome di tipo. 

Inserito qualche nome di tipo ritornate quindi al modulo d’ingresso 
principale e premete “ t ” seguito dal numero di un tipo definito. Sotto 
il nome desiderato dovrebbe venir ripetuto il messaggio. 


20000 

20010 


REM FILE DATI 


20020 REm**%*mmm*mmm**Mm*mM*. 


20030 PRINT "POSIZIONARE IL NASTRO, QU 
INDI PREMERE SRETURN5—" 

20040 INPUT "IL MOTORE SI ARRESTA IN MOD 
0 AUTOMATICO "JQ*■POKE 192,?:P0KE 1,39 
20050 PRINT "WSFUNZIONI DISPONIBILIPR 
INT "MK 1>SALVATAGGIO DATI" 

20060 PRINT " 2>CARICAMENTO DATI" 
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MODULO 4.2.8 


Commenti 


20070 IHF'UT "3GBFUNZIONE RIOHIESTR "iQ- OH 
Q GOT0 20080,20160 : RETURN 
29080 POKE 1.. 7 •' FOR 1 = 1 TO 2000 : NE NT 
20090 OPEN 1,1,1," UNIFILE":PRINT#1,IT 
20100 FORS1 =0 TO I. T~ 1 ^ PRINT# 1, FNfi<S1 > 
20110 FOR 1=1 TO FNfKSl)-l=PRINTttl,FNBCS 

1) : NEXT I 

20120 PRINT#1,LEFT$<R$(S1>,LEN<8$<S1>>-F 
Nfl<Sl)):NEXT SI 

20130 FOR 1=8 TO 49: IF B$a) = "" THEN B$( 
I> = " " 

20140 PRINT#1,B$<I>:NEXT 

20150 CLOSE 1-- RETURN 

20160 OPEN 1,1,0,"UNIFILE": INPUT#1,1T 

20170 FOR S1=0 TO IT-1: INPUT#1,NN 

20180 TT$="":FOR I = 1TONN-1 : INPUT#1,TT:TT 

$=TT$+CHR$<TT >:NEXTI :TT$=TT$+CHR$<NN-1) 

20190 GET#1,T$:IF T$OCHR$<13> THEN R$<3 

1 ) =R$(31 > +T$ : GOTO 20190 

20200 R$<S1> =R$(S1> +TT$:NEXT S1 

20210 FOR I=0 TO 49 : INPUT#1,B$< I >:NEXT 

20220 CLOSE 1 : RETURN 

Un modulo standard di file-dati. 

21000 

21010 REM SUBROUTINE FUNZIONALI 

21020 REmmmmmmmmmmmmmmm*. 

21030 3S$=MIB$<R$(S2 >,PP+1,FNE <S2 >-PP > : R 
ETIJRN 

21040 FF=0 : T1 $=R IGHT$ •:; T1 $, LEN < T1 $ ') -3 > : FO 

R S2=S1 TO IT—1 : FOR J=1 TO LEN<fl$<S2)> 

21050 IF MID$C R$( S2 >,J,LEN(T1$ >)=T1$ THE 

N FF=1= S1=32 :J=LEN<fì$<32)> : S2=IT-1 

21060 NEXT J,32 ; RETURN 

21070 FF=0 : FOR 32=31 TO IT-1 : F'F-0 •' FOR 1 = 

1 TO FHfl <32)-1 : GOSUE 21030 

21080 IF SS$=T1$ THEN FF=1=S1=S2:I=FNfì(S 

2) -1 : 32=IT—1 : GOT0 21120 
21090 IF LEN(33$><4 THEN 21110 

21100 IF MID$C33$,LEN(33$>~2,1> = "T" THEN 
SS$=LEFT$<33$, LEN(33$>-3> ••GOTO 21088 
21110 PP=FNB(S2> 

21120 NEXT I,32•RETURN 


Il modulo consiste di tre routine che vengono vantaggiosamente po¬ 
ste qui, dato che sono richiamate da diverse parti del programma. 

Linea 21030: può essere richiamata dall’interno di due cicli: un ci¬ 
clo S2 che specifica la linea di archiviazione principale, e un ciclo 
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Collaudo del modulo 4.2.8 
MODULO 4.2.9 


I che determina il numero della voce in una data registrazione. La 
linea estrae, sotto forma di SS$, la voce PP della registrazione S2. 

Linee 21040-21060: equivalenti alla procedura di ricerca speciale di 
Unifile. 

Linee 21070-21120: ricerca diretta della voce. Il ciclo I utilizza FNA 
per scoprire quante voci ci sono nella registrazione (FNA (S2) = nu¬ 
mero di voci in S2 più uno per l’indicatore terminale) e richiama 
21030 per estrarre le singole voci. Voci dotate dell’indicatore del ti¬ 
po vengono confrontate con e senza il suffisso del tipo. 

Impossibile un controllo prima dell’inserzione del modulo seguente. 


17800 REmmmmmmmmmmmmmmm-è 
17010 REM RICERCA 

17020 REMmMWMMMMmmMmm*:****. 

17030 S1 =0 : FF=0 : PRI NT " nrtftiftlifttftÌÌH&: 1C 
ERGA" 

17840 FRI NT "M3FUNZI0NI DISPONIBILI 
17050 PRINT "*M > Sii INTRODURR E LA VOCE DA 
RICERCARE" 

17060 PRINT "l ^PREMETTERE / III / PER RI 
CERCA INIZIALE" 

17070 PRINT "H >iFREMETTERE 'SSS' PER RI 
CERCA SPECIALE" 

17080 PRINT "« >Bi3RETURNl PER LA PRIMA V 
0CE DEL FILE" 

17090 PRINT " *>ii'MMM' PER RICERCA MULTI 
PLA" 

17100 PRINT "'!!($>•••»••*§#«««#§•••••••«•• 

17110 T1 $= " " : INPUT " 31NTRODIJRRE LA FIJNZ10 
NE RICHIESTA:", TI$ 

17115 IF LEFT$ai$, l)0"t" THEN 17130 
17120 LET TN=VAL<MID$<T 1 *, 2:■ > + 10: GOTO 17 
110 

17130 IF TNO0 THEN LET T1$=T1$+" t“+MID$ 
(STR# C TN)> 2) : TN=0 

17140 IF LEFT$(T1$> 3>0"III" THEN 17170 
17150 T1$==RIGHT$<T1$;LEN(T1$)“3> : G0SUB 1 
4000 :S1=SS : IF S1>IT-1 THEN RETURN 
17160 T1$="III"+T1$ : G0T0 17310 
17170 IF LEFT$CT1$,3K>"SSS" THEN 17200 
17180 GOSUB 21040:IF ff=1 THEN T1$="SSS" 
+T1$ : GOTO 17310 
17190 RETURN 

17200 IF LEFTO"MMM" THEN 17270 
17210 INPUT "iiMHUMERO DI VOCI DA RICERCA 
RE :";NN 
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17220 FOR K=0 TO NN-1-PRINT "RICERCA VOC 

E";K+1 ; : IHPUT Mi<K>:NEXT K 

17230 FOR K=0 TO NN-1:T1$=MÌ<K)=S3=S1:GO 

SUE 21070:IF FF=0 THEN RETURN 

17240 IF S30S1 THEN 17230 

17250 HENT K 

17260 LET Tlì="MMM" : GOTO 17310 
17270 IF Tlì="" THEN 17310 
17230 GOSIJB 21070 
17290 IF FF=1 THEH 17310 
17300 RETURN 

17310 IF S1>IT-1 THEN S1=IT~1 

17320 IF IT=0 THEN RETURN 

17330 IF S1<0 THEN S1=0 

17340 PRINT "SSWREGISTRflZ IONE " ; S1 +1 ; " ; - 

M" : F'P—0 : S2=S 1 : FOR 1 = 1 TO FNh < S1 > -1 

17345 IF 1/12=1NT<1/12>THEN INPUT “*CONT 

INUR";TT$ 

17350 GOSUE 21030: if LENCSSÌK4 THEN 17 
380 

17360 IF MIDì<RI3HTÌ<SSÌ,3>,1,1><>"T" TH 
EN 17380 

17370 PRINT Bì<VAL(RIGHT$<SS$,2 > > ~1i> ; ": 
" : SSÌ=LEFTÌ < SSì, LEN < SSÌ > -3 > 

17380 PRINT SSÌ 

17390 PP=FNB<S1>:NEXT I= S1=S1 +1 

17400 PRINT "MS*ICERCA! SFUNZIONI DISPO 

NIBILI=" 

17410 PRINT "M ■>aSF:ETURN! REGI STAZI ONE 
SUCCESSIVA" 

17420 PRINT "1 >ii 'AAFl•' PER CORREGGERE" 
17430 PRINT " I>i!' CCC"' PER CONTINUARE RI 
CERCA" 

17440 PRINT " ■>:!'#"+NUMERO PER SPOSTARE 
PUNTATORE" 

17450 PRINT " ■>!!"ZZZ" RITORNA AL MENU" 

17460 Pì= " " : INPUT "MBFIJNZI ONE RICHI ESTÀ : 
" J Pì 

17470 IF T 1Ì="MMM" AND SKIT THEN 17230 

17480 IF PÌ="CCC" AND SKIT THEH 17140 

17490 IF Pì="" THEN 17310 

17500 IF P$="AAA" THEN GOSUE 16000:GOTO 

17310 

17510 IF PÌ="ZZZ" THEN RETURN 

17520 IF LEFTÌCPÌ,1>="#" THEN S1=S1+VAL< 

MIDì < Pi,2 > >-1 : GOTO 17310 

17530 S1=S1-1 : GOTO 17310 


Simile al modulo di ricerca in Unifile, ma comprendente la ricerca 
multipla e i nomi di tipo assegnati alle voci. 
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Commenti 


Collaudo del modulo 4.2.9 

MODULO 4.2.10 

MODULO 4.2.11 


Linee 17110-17130: notate il modo in cui questa routine stabilisce 
se vada ricercata una voce dotata del numero di tipo, e richieda quindi 
un ingresso sotto quella intestazione, aggiungendo il numero del ti¬ 
po al termine della voce. 

Linee 17140-17160: una ricerca iniziale come in Unifile. 

Linee 17170-17190: ricerca speciale che fa uso della routine del mo¬ 
dulo precedente. 

Linee 17200-17260: la nuova routine di ricerca multipla. Richiede 
all’utente di specificare il numero di voci da cercare e di introdurre 
poi le singole voci (non vengono trattati i numeri del tipo). Viene 
richiamata una procedura di ricerca a 21070-21120. Prima di speci¬ 
ficare ogni articolo della ricerca, si prende nota del valore del pun¬ 
tatore di ricerca SI sotto forma della variabile S3. 

Quando la routine a 21070 cede nuovamente il controllo a questa 
routine, il valore di S3 viene nuovamente confrontato con SI. Se SI 
è diverso da S3, è chiaro che le due voci non erano presenti nella 
stessa registrazione. Non appena trovata una delle voci di ricerca spe¬ 
cificate, quest’ultima viene riportata alla prima voce di ricerca, per 
assicurarsi che l’intera lista delle voci da ricercare sia confrontata 
con le voci della registrazione. 

Linea 17280: se la ricerca è giunta a questo punto, si assume che l’in¬ 
gresso sia una voce da ricercare con una procedura normale e viene 
richiamata la routine a 21070. Notate l’uso del flag (indicatore) FF 
in tutte queste routine di ricerca per indicare se è stato realmente 
trovato qualcosa. 

Linee 17340-17390: si richiama la routine a 21030 per estrarre le sin¬ 
gole voci, iniziando dal principio della registrazione considerata. I 
nomi di tipo vengono stampati, dove sia presente il simbolo “1”, 
a due caratteri dalla fine della voce. 

Dovreste ora poter scorrere in avanti e indietro lungo le registrazio¬ 
ni, e compiere ricerche tramite i metodi descritti nei commenti. 

18000 rem##*-: 

18010 REM COMPATTAZIONE FILE 

18020 mwmmm*mM*wmmmm****m* 

18030 F0R 1=31 T0 IT~1 : A$CI> =A$<1 +1) = NEX 
J - IT=IT-1: RETURN 


Questa procedura di una sola linea compatta l’archivio quando ven¬ 
gono fatte delle cancellazioni. 

16000 REN#**3t5*^^*****-f:**#*^**#*Jf:***:+*** 

16018 REM MODIFICA REGISTRAZIONI 

16820 

16030 31=31-1:71$="":NN=-1 :TN=0 
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16040 PP=0:S2-S1 : FOR I=1 TO FHRCSI>-1 
16050 PRI NT " 3SREG ISTRHZI ONE " ; S1 +1 ; " = - " 
16060 GOSIJE 21030 : IF LEN(SS$X4 THEH 160 
90 

16070 IF MID$<SS*,LEN<SS#>-2,1>O"f" THE 
N 16090 

16080 PRINT B$ <VRL< RIGHTfCSS* , 2> > ~11>;": 

";LEFT# <SS*,LEN(SS*>-3>: GOTO 16100 
16090 PRIHT SS# 

16100 PRINT" SmmUF IJNZIONI DISPONIBILI : 

II 

16110 PRINT " ni >SitìF'ETURNI NON MODIFICA L 
C| VOCE 11 

16120 PRINT " 1>KTERMINRRE CON PER N 
UOVR VOCE" 

16130 PRINT " ^«SOSTITUZIONE VOCE VI SUR 
L 1 7 ZHTfi 11 

16140 PRINT " ■>iì'ZZZ y NON RPPORTR MODIF 
11 HE 11 

16150 PRINT " ■>fii'DDD / CRNCELLR REGISTRO 
ZIONE" 

16160 PRINT " «:>ii RRR' ELIMINO VOCE BOLL 
R REGISTRAZIONE" 

16170 Q*="": INPUT "SFUNZIONE RICHESTA:"; 
Q* 

16180 IF Q*="ZZZ" THEN RETURN 
16190 IF Q#a"RRR" THEN GOTO 16300 
16200 IF Q$="DDD" THEN GOSUB 18000•RETUR 
N 

16210 IF LEN (.11$) +LENCQ*> +NN+2<255 THEN 
GOTO 16230 

16220 PRINT "«REGISTRAZIONE TROPPO LUNGO 
":FOR J=1 TO 3000 : NENT : RETURN 
16230 EN=0 : IF RIGHT* < Q*, 1 > = "*" THEN EX*1 
:Q*=LEFT*(Q*,LEN <Q*>~1> 

16240 IF Q*="" THEN T1*=T1*+SS*•TIZCNN+l 
)=LEN(Tl$) : NN=NN+1 : GOTO 16300 
16250 IF LEFT*(Q*,1><>"T" THEH 16280 
16260 TN*VRL<MID*(Q*,2 > > +10:PRINT ET< TN- 
11);":"; :Q*="": INPUT 0$ 

16270 Q*=Q*+"t"+MID*<STR*<TN >, 2) 

16280 T1*=T1 *+Q* ■ TIX(NN+1 > =LEN<T1 * > = NN=N 
N+l 

16290 IF EX*1 THEN 16050 

16300 PP*FNB(S1) : NEXT I 

16310 FOR 1=0 TO NH : T1*=T1*+CHR$(TIX(I)) 

:NEXT:T1#*T1*+CHR*<NN+1> 

16320 PRINT "SOTTENDEREGOSUB 18000:GQ 
SUB 14000 :GOSUB 15000 : RETURN 
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Equivalente al modulo di modifica di Unifile. 


Commenti 


Collaudo del modulo 4.2.11 


Riepilogo 


Ulteriori sviluppi 


4.3 NNumer 


Linea 16320: inserendo una voce che termina con un * si indica che 
questa va posta nella registrazione prima di quella visualizzata. La 
variabile EX (Extra) viene posta a uno per segnalare il fatto. Alla 
linea 16290 si utilizza questa variabile per assicurarsi di non perdere 
la voce visualizzata. 

Dovreste ora essere in grado di cancellare registrazioni, modificare 
o inserire voci. Se tutto funziona correttamente in questo modulo, 
il programma è pronto all’uso. 

Posto che le loro applicazioni saranno diverse, questo programma 
conserva tutti i punti di forza dell’Unifile originale, e spero che ne 
apprezzerete l’utilità. 

Inoltre spero che introdurre il programma vi abbia dato una visione 
chiara dei vantaggi dello stile di programmazione modulare. Basan¬ 
dosi sui moduli di Unifile, la versione originale di questo program¬ 
ma è stata scritta in meno di una mattinata, per il semplice motivo 
che la limpida struttura messa a disposizione da un programma mo¬ 
dulare rende assolutamente chiaro dove vadano apportate le neces¬ 
sarie modifiche. 

A patto che non siate pressati da gravissimi problemi di spazio in 
memoria, risparmierete tempo e fatica di programmazione scriven¬ 
do i vostri programmi in ben definite unità funzionali. Questo non 
solo rende più leggibili i programmi, ma aumenta anche le possibili¬ 
tà che riusciate a richiamare la stessa routine da punti diversi del pro¬ 
gramma, semplifica la sostituzione di funzioni che pensate di poter 
migliorare in seguito e, cosa altrettanto importante, rende più age¬ 
vole l’estrazione di intere parti del programma per successivi utilizzi 
in altre applicazioni. 

1) La routine di ricerca multipla non prevede di specificare i nomi 
di tipo delle voci. Le linee 17110-17130 danno un chiaro esempio 
di come sarebbe possibile realizzare ciò. 

2) Le basi dei dati di tipo professionale solitamente permettono di 
ricercare registrazioni contenenti, per esempio, quattro delle otto voci 
di ricerca presenti. Potreste adattare questo programma alla bisogna. 


Dopo aver inserito nel 64 due programmi in grado di fare fronte a 
numerose necessità nel campo dell’archiviazione di dati non nume¬ 
rici, rivolgiamo ora la nostra attenzione ai problemi dell’archivia¬ 
zione di numeri. Benché la maggior parte delle applicazioni numeri¬ 
che vadano specificamente messe in relazione a un particolare pro¬ 
blema, NNUMER (forma contratta di Nome e Numero) si avvicina 
molto ai due programmi Unifile, per il fatto di essere concepito co¬ 
me strumento di uso generale nelle applicazioni dove sia utile me¬ 
morizzare i nomi di alcune voci, dei valori quantitativi a questi as¬ 
sociati e poter sommare le voci in quantità variabile. Nel caso vi rie- 


92 



sca difficile immaginarne le applicazioni possibili, potrei forse dire 
che l’idea da cui è scaturito il programma era quella di un contatore 
di calorie che permettesse all’utente di memorizzare un dizionario 
contenente fino a 500 cibi e di calcolare agevolmente il valore calo¬ 
rico dei pasti di un giorno o di una settimana. Questo programma 
è, senza modifiche, sia in grado di calcolare la lista della spesa sia 
di aiutare a controllare il peso. 

Siccome lo stile del programma è molto simile a quello dei due Uni- 
file, e molte funzioni si assomigliano, i commenti e i suggerimenti 
per le prove sono stati limitati al minimo indispensabile. 

NNumer: lista delle variabili A$(499,l) Matrice dizionario principale 

C(499) Valori associati alle voci specificate nel dizionario 

CT Variabile temporanea usata per cumulare la som¬ 

ma delle voci della lista corrente 
CU Numero di voci della lista corrente 

NN$ Nome generale delle voci da registrare 

IN Flag d’inizializzazione 

IT Numero di voci memorizzate nel dizionario princi¬ 

pale 

NN Memorizzazione temporanea del valore associato al¬ 

la nuova voce da inserire 

PO Usata nel determinare il numero di confronti neces¬ 

sari nel modulo di ricerca binaria 
QQ$ Nome generale delle quantità associate alle voci da 

memorizzare 

R$ Separatore usato nel salvataggio del file dei dati 

SS Puntatore per la ricerca binaria 

T(49) Valori associati alle voci memorizzate in T$ 

T$(49,l) Memorizzazione della lista corrente 

Tl$ Memorizzazione temporanea del nome della voce da 

introdurre 

T2$ Memorizzazione temporanea dei valori associati a 

Tl$ 

MODULO 4.3.1 11000 REri#******#****^***'*^****#**^*^** 

11010 REM MENU 

11020 REmwmmmmwmmmwmmmmmm 

11030 POKE 53281 / 13 : PRIMI "KHIIRMIIII! 
«raSNNUMERi" 

11040 FRINT "SWEFUNZIQNI DISPONIBILI:" 
11050 FRI NT "iim 1>VISUALIZZA LISTfi COR 
RENTE" 

11060 PRINT " 2)INSERZIONE NELLA LISTA 

CORRENTE" 

11070 PRINT " 3>INIZIO NUOVA LISTA" 

11080 PRINT " 4>CANCELLAZIONE DA LISTA 

CORRENTE" 

11090 PRINT " 5>ESPANSIONE DIZIONARIO" 

11100 PRINT " 6)VISUALIZZAZIONE DIZIONA 

RIO" 
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MODULO 4.3.2 


MODULO 4.3.3 


11110 PRINT " 7)ARCHIVIAZIONE DATI" 

11120 PRINT " 8)INIZIALIZZAZIONE" 

11130 PRINT " 9>TERMINE" 

11140 INPUT " K3FUNZIUNE RICHIESTÀ • " ; Z : PR 

i nt 11 ri" 

11150 IF INO0 OR Z=8 OR Z=9 THEN GOTO 1 
1188 

11160 PRINT ":T^lPlPMPMPM(!Mi!!*Ìli»»#»»#WON A 
NUORA INIZIALIZZATA" 

11170 FOR 1 = 1 TO 2000 :NEXT : GOTO 11000 
11180 IF IT>0 OR Z=2 OR Z=3 OR Z=5 OR Z= 
7 OR Z=8 OR Z=9 THEN 11210 
11190 PRINT "Zr«PMs.MPl?MPlPMPWftli|iÌ»*©HTI A 
SS ENTI " 

11200 FOR 1 = 1 TO 2000 : NEXT '■ GOTO 11000 

11210 ON Z GOSUB 1300O, 14000, 14120.. 19000 

,15009,18000,20000,12000,11230 

11220 GOTO 11000 

11230 PRINT 

»»Ì*HNNUMER" 

11240 PRINT "UHIiKiiiitBPROCRAMMfì TER MIN 
ATO": END 


Un normale modulo di menu. 


12000 

12010 REM INIZIALIZZAZIONE 
12020 

12030 CLR:DIM A$<499,1),C <499 >,T$<49,1>, 
T <49>:CURR=0: IT=0: IN=1 :R#*CHR$<13 > 

12035 INPUT "fJCARIC AMENTO DA NASTRO <3/ 
N >:"; Q $: IF Q$="S" THEN 11000 
12940 INPUT " MSN Oli E DELLE VOCI ■ ", NNT 
12050 INPUT "«NOME DELLA QUANTITÀ" ASSOC 
IRTA:";QQ$■GOTO 11000 


Inizializzazione delle variabili. Il modulo permette inoltre all’utente 
di specificare il nome di ogni elemento da memorizzare e il nome 
generale delle unità di misura, per esempio Cibo/Unità, Prodotto/Ti¬ 
po di confezione. 

15000 RRwm*+*mmMMM**mm*m***** 

15010 REM ESTENSIONE DIZIONARIO 

15020 

15030 IF IT<590 THEN 15050 
15040 PRINT "BFMHDIZIONARIQ COMPLETATO" 
FOR 1 = 1 TO 2000 = NEXT ■■ RETURN 
15050 PRINT n m»»Ì»ÌiamUOVE VOCI DEL DI 
ZIONARIO!" 

1506O PRINT "BMW"JNN$;=INPUT " : (NOME 0 " 
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MODULO 4.3.4 


MODULO 4.3.5 


MODULO 4.3.6 


ZZZ ' PER TERMINARE):";Tl$ 

15070 IF 11$=-'"ZZZ" THEH RETURN 
15080 PRI NT " M" ; QQ$ J : IHPUT " : " ; 12$ 

15090 FRI NT "fOJRNTlTFr PER ",T2$.; ■ INPUT 
NN 

15100 INPUT " «3LAT 1 ESP I TI ? < S/N > " ; Q$ : 1 
F Q$="N" THEN GOTO 15050 
15110 GOSUB 16800 ; GOSUB 17888 ; IT = IT+1 :GO 
TO 15050 


Modulo d’ingresso per il dizionario principale. Specificato il nome 
generico delle varie voci e delle unità di misura, all’utente si richiede 
di scrivere il nome della voce, il nome dell’unità di misura e la quan¬ 
tità unitaria fondamentale (per es. calorie, prezzo, volume). 


16008 REmmmmmmmmmmmmmmmw. 

16010 REM RICERCA BINfiRIfi 

16020 REM******.+:+4ì:+*.4:**^+:+***^*-**^**^^* 

16038 IF IT=0 THEN SS=0•RETURN 

16040 PO—INT(LOGCIT >/LOG<2 )>•SS=2tPO-1 

16050 FOR I=PQ TO U STEF-1 

16068 IF fl$<SS><T1$ THEN SS=SS+2TI 

16070 IF fi$<SS)>Tl$ THEN SS=SS-2TI 

16080 IF SS<0 THEN SS=0 

16090 IF SS>IT-1 THEN SS=IT-1 

16108 NE/T I 

16110 IF H$<SS><T1$ THEN SS=SS+1 
16128 RETURN 


Un normale modulo di ricerca binaria. 


17000 REnmmmmmm-mmmmmmmmm 

17010 REM INSERZIONE VOCI 

17020 REM****************************** 

17030 IF IT=0 THEN GOTO 17060 

17040 FOR 1 = 17 TO SS+1 STEP-1 : fl$< 1,0>=H$ 

< 1-1,0) ; R$U, 1 j | ~fl$a-l, 1) 

17050 Ca>=Ca-l>:NEKT 

17860 fi$ <SS,0 >=T 1 $ : H$< SS,1)=T2$ : C< SS > =NN 
: RETURN 


Un modulo d’inserzione. 


18000 REm**MMmm*m******m**M*m* 

18010 REM RICERCA-UTENTE 

18020 

18030 3S=0 ; Tl$="#l" 

18040 FRI NT 11 rifJPiiiiiiiiiiiPISfaF: I CERCHI" 
18050 PRINT "SONUMERO BELLE VOCI:"JSS+1 
18068 PRINT "MS", NN$; " : ".: H$<SS, 0) 
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Collaudo dei moduli 4.3.1 -4.3.6 


MODULO 4.3.7 


18070 PRI NT " W .; Q.Q$ ; " : " ; A$ < SS, 1 ) 

18080 PRINT "MQUANTITR" PER ";R$(SS,1>;" 

: ";ccss> 

18090 FRI NT 

18100 PRINT "«FUNZIONI DISPONIBILI :" 
18110 PRINT "Sii >VQCE DR RICERCRRE" 
18120 PRINT " >"'*"+NUMERO PER SPOSTARE 

IL PUNTATORE" 

18130 PRINT " >•"DDD " PER CANCELLARE Lfl 

VOCE" 

18140 PRINT " >'ZZZ- PER TORNARE AL MEN 
U" 

18150 T1 $= " " : INPUT " .«3FIJNZI ONE RICHI ESTÀ : 

» ; J J •£ 

18160 £F TUO "DDD" THEN 18190 

18178 FOR I =SS TO IT-1 A$( 1,0) =A$(1 + 1,0) 

: AT(I,1)=fl$(1+1,1):c(I)-C(I+1):NEXT 

18180 IT=IT-1 : DOT0 18040 

18190 IF TU="ZZZ" THEN RETURN 

18200 IF LEFUCTU, 1)0"*" THEN GOSUE 16 

080:GOTO 18220 

18210 SS=SS+VAL(MID$(T U,2)) 

18220 IF SS>IT-1 THEN SS=IT-1 
18230 IF SSC0 THEN SS~0 
18240 GOTO 18040 


Modulo di ricerca principale. 

A questo punto dovreste riuscire a inserire i dati e a controllare la 
corretta inserzione nel dizionario principale (ordinato per nome delle 
voci) usando il modulo di ricerca. 


IL NASTRO, QU 


2WU00 

20010 REM FILE DATI 
20020 

20030 PRINT ":?HPOSIZIONARE 
INDI PREMERE SRETURN*—" 

20040 INPUT "IL MOTORE SI ARRESTA IN MOD 
0 AUTOMATICO ";Q$:POKE 192,7:P0KE 1,39 
20050 PRINT "DISFUNZIONI DISPONIBILI : " : PR 
INT "m 1 )SALVATAGGIO DATI" 

20060 PRINT " 2)CARICAMENTO DATI" 

20070 INPUT "UffUNZIONE RIGHIESTÀ :";Q:ON 
Q GOTO 20080,20140:RETURN 
2O080 POKE 1,7:FOR i=i JO 2000 : NEXT 
20090 OPEN 1,1,2,"NNUMER":PRINT#1,NN$R*Q 
Q$R$; CU;R$,IT: IF CU=0 THEN 20110 
20100 FOR1=0 TO CU-1:PRINT#1,T$(1,0)R$T$ 
(1,1)R$T(I):NEXT 
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MODULO 4.3.8 


20110 IF IT=0 THEN 20150 

20128 FOR I =0 TO IT-1 : F'RINT# 1,1-1$CI,0)R$H 

$C I , 1 >R$CC I > : NEXT 

20130 CLOSE 1'RETURN 

20140 OPEN 1,1,0," NNUflER " : INPUT# 1, NN$, QQ 
$,CU,IT 

20150 IF CU=0 THEN 20170 

20160 FOR I—0 TO CU-1 : INPUT#1,T$ <1,0>,T$ 

CI,1),TCI>-NEXT 

20170 IF IT=0 THEN 20190 

20180 FOR 1=0 TO IT-1 ; INPUT#1,A* <I,8>,A$ 

CI,1>,C(I) : NEXT 
28190 CLOSE 1■RETURN 

Un normale modulo di file dei dati. Procedete al salvataggio dei vo¬ 
stri dati! 

14000 REM#######*#####*#*#########*#*## 
14010 REM ESTENSIONE LISTA CORRENTE 
14020 REM****************************** 
14030 IF CU=50 THEN PRINT 
«LISTA CORRENTE COMPLETA": RETURN 
14040 PRINT "IKWiiHaAGGIUNTE ALLA LISTA 
CORRENTE"" 

14050 PRINT ":«?ii ,, ;NN$, " C'ZZZ' PER TERMI 
NARE)INPUT T1$=IF T1$="ZZZ" THEN RET 
URN 

14060 GOSUB 16000:IF fi$CSS,0>=T1$ THEN G 
OTO 14080 

14070 PRINT "SWEEIBO SCONOSCIUTO, PREGO 
CONTROLLARE.FOR 1 = 1 TO 2000 :NEXT: RETUR 
N 

14080 PRINT "W",QQ$ i":";A$ CSS,1>: INPUT " 
W0UANTITA':";Q 

14090 INPUT "WW*DflTI ESATTI CS/N) >Q:Xl 
F Q$="N" THEN 14000 

14100 T$C CU,0 > =A# CSS,0):T$CCU,1> =STR$CQ > 
+ " "+A$ C SS,1>:T CCU> =Q*CCSS >:CU=CU+1 
14110 GOTO 14000 

Fino a questo punto avete potuto inserire e manipolare dati nel di¬ 
zionario principale, ma la questione fondamentale del programma 
è quanto da questo si può estrarre e porre in una lista temporanea 
nota come “lista corrente”. Questo modulo inizia il processo per¬ 
mettendo di nominare una voce del dizionario e di specificare quan¬ 
te unità di questa vadano aggiunte alla lista corrente. Viene richia¬ 
mato il modulo di ricerca binaria per controllare l’effettiva presen¬ 
za nel dizionario della voce introdotta. 
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MODULO 4.3.9 13000 REmmmMMMMMMMMMmMM*. 

13010 REM VISUflLIZZfì LISTA CORRENTE 

13020 

13030 IF CU=0 THEN RETURN 

13040 FRINT :CT=0:FOR 1=0 TO CU-1=PRI 

NT H H3"JNN$;":";T$<I,0> 

13050 PRINT "M"JQQ$j":"J T$CI, 1>:PRINT "M 
QUANTITÀ' : M(I) 

13060 PR I NT " !(!iS j000000000000000000000000 
000000000000000 11 

13070 INPUT "PREMERE SRETURN5 PER VOCE S 
UCCESSI VA : "Q$ : F'R I NT " TI" 

13080 PRINT " 

TH" 

13030 CT=CT+T <I) : NEXT I 

13100 PR I NT " «ttìTQTALE = ■ " ; CT 

13110 INPUT "«SPREMERE SRETURNS PER TORN 

ARE AL MENU";Q$:RETURN 


Dopo aver introdotto le voci nella lista corrente, questo modulo per¬ 
mette di stamparla sullo schermo e calcola un totale dei valori asso¬ 
ciati alle voci della lista stessa. 


modulo 4.3.10 13000 

19010 REM CANCELLAZIONI LISTA CORRENTE 


19030 IF CU=0 THEN RETURN 

19040 FOR 1=0 TO CU-1:Q$="":PRINT "BM";T 

$0,0) : PRINT "; T$< 1, 1> 

19058 INPUT" MDDD=CANCELLA RETURN=SUCCESS 
IVO ZZZ=STOP"jQ$: IF Q$="ZZZ"THENRETURN 
19060 IF Q$0"DDD" THEN NE NT I : RETURN 
19070 FOR J= 1 TO CU-1 T$< .J, 0)=T$ < ,J+1,0): 
T $ k J, 1 ) =T$< J+1,1)0 C J) =T ( J+1 ) : NEXT 
19080 CU=CU-1-RETURN 
19Ó90 STOP 


Lo scopo di questo modulo è permettere all’utente di scorrere lungo 
le registrazioni fino alla lista corrente e di cancellare ad arbitrio. Non 
si hanno complesse funzioni di ricerca, è solo questione di scorrere 
ogni voce, una alla volta. 

Collaudo dei moduli 4.3.8-4.3.10 Dovreste ora poter costruire una lista corrente, visualizzarla e com¬ 
piere su questa cancellazioni a piacere. 

modulo 4.3.11 14120 

14130 REM INIZIALIZZA LISTA CORRENTE 
14140 

14150 FOR 1 = 1 TO 50 : T$'.: 1,0) = " " : T$( 1, 1 ) = " 
":TCI)=0:CU=0:RETURN 
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Dal momento che la lista corrente è intesa solo in funzione tempo¬ 
ranea, con frequenti azzeramenti, questo modulo pulisce le matrici 
della lista corrente e azzera il puntatore alla lista corrente. Se questo 
modulo funziona correttamente, il programma è pronto all’uso. 

Riepilogo Questo programma è un’ulteriore dimostrazione della potenza della 
programmazione modulare. Indipendentemente dalla notevole dif¬ 
ferenza nelle applicazioni, molti dei moduli sono stati estratti, con 
o senza modifiche, dai due programmi precedenti. 

Con il procedere nella vostra carriera di programmatori, imparerete 
rapidamente che, scritta in unità funzionali debitamente separate l’u- 
na dall’altra, una raccolta di metodi operativi è ancora più impor¬ 
tante di una raccolta di programmi. Una libreria di programmi vi 
metterà in posizione favorevole fintantoché non sorga una nuova 
esigenza applicativa. Una raccolta di metodi, propriamente espressi 
sotto forma di moduli funzionali, vi permetterà di affrontare quelle 
nuove applicazioni senza quasi alcuno sforzo. Nuovi metodi potete 
reperirli ovunque, in riviste e libri come questo, dunque cercate co¬ 
stantemente di seguirli, se appaiono di buona qualità, anche se al 
momento non riuscite del tutto a coglierne l’importanza. In una o 
due settimane potreste scoprire che si trattava esattamente di quello 
che stavate cercando per portare a termine quel programma che vi 
sta causando tanti grattacapi. 
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5. Programmi 
didattici 


Un campo in cui i microcomputer stanno già cominciando a lascia¬ 
re la loro traccia è quello dell’istruzione. Al giorno d’oggi nessuna 
scuola può dirsi completa senza uno o due calcolatori. Non è tutta¬ 
via solo in aula che ha importanza l’apprendimento con l’ausilio del 
computer — infatti tutti i vantaggi derivanti dalla grande capacità 
di calcolo si possono avere anche a casa. In questo capitolo ci sono 
tre programmi che indicano un modello per applicazioni di questo 
genere, qualsiasi sia la vostra età. 


5.1 Multidom 


Questo è uno dei miei programmi preferiti. Quando lo scrissi, mi 
preoccupai solo di far sì che fosse in grado di eseguire il compito 
per cui era stato progettato. Finché non introdussi una serie di do¬ 
mande e non lo feci provare a varie persone, non mi resi conto che 
programmi simili rendono l’apprendimento attraente, al pari di un 
qualsiasi gioco. 

Come Unifile, questo è un programma camaleontico, progettato per 
trasformarsi in relazione alle vostre esigenze. In un istante può esse¬ 
re insegnante di francese, pochi minuti dopo può porre complesse 
domande sulla storia del XIX secolo. 


Multidom: lista delle variabili AA 

A$(1,499) 
0(1,9) 

D$(9) 

IT 

NA$(1) 
PI, P2 
PP 


Variabile temporanea che memorizza la domanda 
scelta dall’utente 

Matrice principale contenente domande e risposte 

Puntatore all’inizio dei gruppi di tipi di elemento 

nella matrice principale 

Vettore contenente i tipi degli elementi 

Numero di elementi contenuti nella matrice 

principale 

Vettore contenente i nomi generici per domande e 
risposte 

Puntatori all’estensione di file da trattare per gene¬ 
rare le domande 

Puntatore alla risposta sbagliata da selezionare dalla 
matrice 
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MODULO 5.1.1 


MODULO 5,1.2 


0(4) 

Qi 

Q2 

QT 

QU 

R$ 

RR 

SU 

TY 


Usata nella costruzione del testo a risposta multipla 
Posizione della risposta casuale estratta dal file 
Posizione della risposta esatta nella matrice Q di ri¬ 
sposte possibili 
Numero delle domande poste 
Indicatore del tipo di domande richieste nel modu¬ 
lo di generazione delle domande 
Separatore nel file dei dati 
Risposta esatta 

Variabile temporanea usata nel calcolare i gruppi 
nella matrice D 

Numero dei nomi di tipo introdotti 


11000 REl'l#^^*****^**^****:**^*^**#*^***^ 
11010 REM MENU 
11020 

11030 POKE 53281, 13 : PRI NT " 


WWSMULTIDOM" 

11040 FRINT "MHFUNZIOMI DISPONIBILI:" 
1.1050 PRINT "M 531 )INTODUZIONE NUOVE VGC 


j » 

11060 PRINT 
11070 PRINT 


2 RIU E R U A / U Fi N UELLRZIONE" 

3 >INTRODUZIONE NUOVI TIPI 


11086 PRINT 
11090 PRINT 
TEGGIO" 
11100 PRINT 
11110 PRINT 
11120 PRINT 
11130 INPUT 


4>CREAZIONE DOMANDE" 

5)VISUALIZZA 0 AZZERA PUH 


" 6MARCHIVIAZIONE DATI" 

" 7)INIZIALIZZAZIONE" 

" 8 )TERMINE" 

" M3FUNZIONE RIOHIESTÀ : " ; Z = PR 


INT'TT'J 

11140 OH Z GOSUB 13800,. 16000,12100.. 17000 
,18000,19000,12000,11150'GOT0 11000 
11150 PRINT 11 iHSDRAR10 II 

I LEZIONE TERMINATO":END 


Un modulo di menu standard. 


12000 REmmmmmmmmmmmmmmmw. 

12010 REM INIZIALIZZAZIONE 

12020 rem 

12030 CLR ' BIM A$ < 1,499 ), D(1 ,9>, I)$ C9 >, Q< 4 
>,NA$(1>:R$=CHRT(13) 

12040 INPUT "SCARICAMENTO DA NASTRO (3/ 
N Q$ ■ IF Q*= " S " THEN 11000 
12050 PRINT "ITsOMiiiilSlSTRUTTURA DELLA 
PROVA" 

12060 INPUT 'LSJIOME DELLE RISPOSTE : " , NAT 
( O > 


102 






MODULO 5.1.3 


12078 INPUT' "SKNOriE DELLE DOMANDE : " ; NA$< 
1) 

12080 INPUT " MBD AT I E8ATT I < S/N > : " ; Q$ ■ IF 
Q$-"N" TIHEN 12050 

12090 I)$ ( 0 > = " NON CLASS IFI CfìTO " : TV= 1 

12100 print "«ai»i»iiMii»iCTipr' 

12110 PRINT "««INTRODURRE 'ZZZ' PER TERM 
INARE: " 

12120 PRINT "SITIPI INTRODOTTI FINORA:-" 
1F TV= 1 THEN PRINT "■NESSUNO" 

12130 IF TVOl THEN PRINT "M" FOR 1=0 TO 
TV-1 PRI NT " ;r I +1, " - I!" ; B$ I > : NE/T 
12140 INPUT "H3NUOVQ TIPO : ";QT:IF Q*="ZZ 
Z" THEN 11080 

12150 I NPUT " tiHDAT I ESATTI < S/N ) : " : Q1 $ ■ 1 
F Q1$="N" THEN 12100 

12160 IF TV-10 THEN PRINT "««SPAZIO ESAU 
RITO":FOR I = 1 TO 2000 :NEXT: GOTO 11000 
12170 D$<TV >=Q$ TV-TV+1 : GOTO 12100 


Questo modulo inizializza le variabili principali e permette di speci¬ 
ficare il nome generale delle domande e delle risposte. L’utente può 
anche specificare fino a nove nomi di “tipo”, usati in seguito per 
rendere più difficoltosi i test. 


13000 REt1#«***m*****«**««*«********** 

13010 REM INTRODUZIONE VOCI NUOVE 

13020 

13030 PRINT NUOVE 

" : PRINT "«ir ZZZ' - PER TERMINARE " 

13040 IF ID=500 THEN PRINT "««SPAZIO ES 
AURITO" : FOR 1=1 TO 3000 : NEXT : RETURN 
13050 PRINT " m ";NAT < 0);":"; : INPUT T1 % ■I 
F T1$="ZZZ" THEN 13168 

13068 PRINT "«SS" i NA$< 1 >; " : " j : INPUT T2$ : I 
F T2$="ZZZ" THEN RETURN 
13070 IF TV=1 THEN T=8: GOTO 13100 
13080 PRINT "ITTI PO " : FOR I = 1 TO TV : PRINT 
I ; D$ <I-1> : NEXT I 

13890 I NPUT " MBQUALE E •' : "T : T =T-1 
13180 PRINT "«Ea»Ì>ÌÌÌÌÌ»»ÌÌISNUOVE VOCI" 
13118 PR I NT " mzl” ; NAT < 0 ) ; " ■".: T1 $ •' PR I NT " 
«■a";NA$<l>;"■";T2T 

13120 PR INT " mzn IPOI" ; DT< T > : INPUT " «MDA 

TI ESATTI CS/N>";Qf 

13130 IF Q$<>"S" THEN 13080 

13140 D<8,T>=DC0,T > +1 :T1T=CHRTC48+T>+T1$ 

13158 GOSUB 14O00:GOSUB 15020:GOTO 13800 

13168 SU=0:FOR I=8 TO 9 : D <1,I > =SU:SU=SU+ 

D(0 >I> : NEXT ; RETURN 
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Commenti 


MODULO 5.1.4 


MODULO 5.1.5 


Collaudo dei moduli 5.1.1-5.1.5 


Questo modulo permette d’introdurre domande e risposte sotto le 
intestazioni specificate dall’utente, permettendo di attribuire un ti¬ 
po, se i tipi sono stati specificati. 

Linea 13070: se TY vale 1, non sono stati inseriti nomi di tipo e il 
tipo viene posto come “Non definito”. 

Linea 13140: viene incrementato di 1 l’elemento rilevante nella pri¬ 
ma colonna della matrice D, registrando il fatto che è stato aumen¬ 
tato il gruppo dei tipi. Il numero del tipo viene apposto all’inizio 
della risposta, sotto forma di un carattere compreso tra 0 e 9. 

Linea 13160: la seconda colonna della matrice D viene disposta in 
modo da contenere la posizione iniziale di ogni gruppo di tipo. 


1 4000 
14010 
14020 

REM RICERCA BINARIA 

PFM************i****************** 

14030 

IF IT=0 THEN SS 

=0 ^ RETURN 

14040 

P0=INT<L0G< 

IT)/ 

L0GC2) 

) SS=2 TF'0-1 

14050 

FOR I=P0 T0 

0 S 

TEF'-l 


14060 

IF A % % 0 j S S /' 

CT1 $ 

THEN 

SS-SS+2 TI 

14070 

IF h$(0 j SS; 1 

>T1$ 

THEN 

O -Z 1 •.-* ■*"' ti ' I 

14080 

IF SSC0 THEN SS 

=0 


14090 

IF SS>IT-1 

THEN 

SS- IT 

-1 

14100 

NEXT I 




14110 

IF A$(0..SS> 

<T IT- 

THEN 

SS=SS+1 

14120 

RETURN 





Un normale modulo di ricerca binaria. Notate che, poiché gli ele¬ 
menti sono ordinati per risposta e le risposte hanno preposto il ca¬ 
rattere indicante il gruppo di appartenenza, l’ordinamento effettivo 
è prima di tutto per tipo — i gruppi di tipo non determinato si tro¬ 
veranno all’inizio del file. 

15000 

15010 REM INSERZIONE 

15020 mw*MmmM*mm*m*mm*MM** 

15030 IF IT=0 THEN 15060 

15040 FOR I=IT T0 SS+1 STEP-1 

15050 FOR ,T=0 T0 1 : A$ J, I > - A$ < J, I -1 ) : NEX 

T J, I 

15060 m < 0,SS >=T1 $■ A$<1,SS > =T2$: IT=IT+1 = 
RETURN 


Un modulo d’inserzione standard. 

L’introduzione e la memorizzazione di dati nella matrice principale 
dovrebbero ora essere possibili, con ordinamento secondo numero 
di tipo. 
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MODULO 5.1.6 


MODULO 5.1.7 


19000 REnMMmMmmmMM'mMMMwm 
19010 REM FILE DATI 

19020 REM***.^*^*^******^'^^*****^***^**^ 
19030 FRINT "«SPOSIZIONORE IL NASTRO, QU 
INDI PREMERE 3RETURNS-” 

19040 INPUT "IL MOTORE SI ARRESTA IH MOB 
0 AUTOMATICO ";QT:POKE 192,7 :POKE 1,39 
19050 PRINT "DISFUNZIONI DISPONIBILI : " : PR 
IMT "Dii 1)SALVATAGGIO DATI" 

1906O PRINT " 2>CARICAMENTO DATI" 

19070 INPUT " HSFUNZIONE RICHIESTÀ :";Q: OH 
Q GOTO 19080,19150:RETURN 
1908O POKE 1,7 : FOR 1=1 TO 2OO0 : NEXT 
19090 OPEN 1,1,2,"MULEIDOM":PRINT#1,IT,R 
$ j TV 

19100 FOR I=0 TO TV-1 :PRI NT#1,BT<I),RT,D 

<0,I),RT,D<1,I)=NEXT 

19110 FOR 1=0 TO IT-1 

19128 PRINT#1,HT(0,1),RT,AT<1,1): NENT 

19130 PR I NT# 1, NAT- < U >, RT, NAT < 1 > 

19140 CLOSE 1=RETURN 

19150 OPEN 1,1,0,"MULTIDOM": INPUT#1,IT,T 
V 

19160 FOR I=0 TO TV-1:1NPUT#1,DT <I>,D(0, 
I>,DC1,I>. 

19170 NEXT I 

19180 FOR I=0 TO I T-1 : INPUT#1,AT C0,I),AT 
<1,I>:NEXT 

19190 1NPUT#1,NAT <0),NAT <1) 

1920O CLOSE l:RETURN 


Un normale modulo di file dei dati. 


16000 REmMmmwwmwMwwmmm***. 

16010 REM RICERCA UTENTE/CANCE^LLAZIONE 

16020 REm*mMMmmm**M.*Mm****%**. 

16030 SS=0 

16040 PRINT 'LTWWifciiiiiWiMSiRICERCA" 

16050 IF SS>IT-1 THEN SS=IT-1 

16060 IF SS-C0 THEN SS=0 

16070 PRINT "»»ÌÌÌÌÌ»»tÌÌ»ÌÌÌ»»ÌÌÌÌÌÌ»ÌKì 

voci*"; it-i 

16080 PRINT "DISFUNZIONI DISPONIBILI:" 
16090 PRINT "DH >*SRETURNS VOCE SUCCESSI 
VA" 

16100 PRINT "■ >SNUMERO POS/NEG PER MIJOV 
ERE PUNTATORE" 

16110 PRINT "■ >1 HDD PER CANCELLARE VO 
CE" 
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MODULO 5.1.8 


16120 FRINT "l >:rZZZ' PER TERMINARE" 
16130 FRINT "M"; FOR 1 = 1 TO 10 
16140 FRINT 

"; :NEXT 

16150 FRI NT " STTITII II INEGISTRAZIONE N.~ 
" ; SS+1 : PRINT" MS" MID$<AT<0, SS>,2> 

16160 PRINT " MS" ifl$CL SS> : PRINT " MS" ; H $< 
VAL C LEFTT C AT C 0, SS > ■ 1 ) ) ) 

16170 Q1$="": INPUT" MMWFUNZIONE RICHIEST 
A : " ; Q1 ■$ 

16180 IF Q1$0"DDD" THEN 16210 
16190 D<0,TE > =D<0,TE >-1 :FOR I=SS TO IT-1 
: ATCO, I)=R$<0.. 1 + 1 > 

16200 A$a,I> =AT(1,1 + 1>:NEXT I : IT=IT-1 :G 

OSOE 13160 GOTO 16040 

16210 IF Q1$="ZZZ" THEN RETURN 

16220 IF Q1$="" THEN SS=SS+1: GOTO 16040 

16238 SS=S8+VAL( Q1 $ > GOTO 16040 

16240 GOTO 16240 


Un modulo di ricerca-utente di concezione lineare. 


17000 REmmmmmmmwmmmmmmmm 

17010 REM DOMANDE CASUALI 
17020 REMif^if:*******#***'**'***#^*##*#***^ 
17030 QIJ--0 

17040 FRI NT "ll&iSSSftSSIStsnSDOMANDE 11 
17050 FRI NT "M®DESIDERI ESTRARRE LE RIS 
POSTE SOLO DA" 

17060 INPUT "DOMANDE DELLO STESSO TIPO < 

S/N) ";Q$: FRINT 

17070 IF Q$="S" THEN QU=1 

17080 P1=0 :P2=IT : Ql = INT(RND(0>*(IT-1)>:Q 

2=INT(RND <0 >^5 > : Q <Q2)=Q1 

17090 IF QIJ=0 OR D(U, VAL(LEFTT( AT(0 , Q1 ), 

1))K5 THEN 17110 

17100 FI=D(1,VAL<LEFT$<A$<0,Q1>,1>>):P2= 
D <0,VAL CLEFT $ (A$(0,Q1),1}>) 

17110 FOR 1=0 TO 4:IF I=Q2 THEN 17150 
17120 PP=F' 1 +1 NT < RND < 0 > *P2 ) : IF PP=Q < 02 ) T 
HEN 17120 

17130 FORJ=0 TO I :IF PP=Q(J) THEN17120 
17140 NEXT J:Q(I)=PP 
17150 NEXT I 

17160 PR I NT " jJMdS" ; NA$ (1)J " •' Si".: A$( 1, Q ( Q2 

I Ji 

17170 PR I NT " flMtìPMl" ; NAT<0> ; " : R" 

17180 FOR 1=0 TO 4 : PR I NT 1 + U") ";MIDT( 
HT(0,Q(I)),2):NEXT 
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Commenti 


17190 PRIHT "XWQUfìLE PENSI SIN LA RISPOS 
IR ESATTA ?" 

17200 INPUT "SUPREMI IL NUMERO CORRISPON 

DENTE ";fìfl:QT=QT+1 

17210 IF fiPt-l=Q2 THEN 17250 

17220 F'RINT "KUSBflGLIflTO ! LR RISPOSTA ES 

HTTR ERA : " 

17230 PRINT MID$CR$(6,Q<Q2)>,2>: GOTO 172 
70 

17240 P0KE53281.. 0 

17250 PRINT ".TiMWWMBW" :FOR 1 = 1 TO 11:FRI 
NT " ESATTO!":NEXT 

17260 FOR 1=1 TO 15 ; P0KE53281,I ; FOR J=1 
TO 200 : NEXT 3 > I : RR=RR+1 
17270 PRINT "M3SRETURN1 PER UNA NUOVA DO 
MANDA 0 'ZZZ' PER TERMINARE " 

17280 Q$=""•INPUT Q$:IF Q$="ZZZ" THEN RE 
TURN 

17290 PRINT" IT ; : GOTO 17080 


È l’unico modulo realmente originale del programma. Il suo scopo 
è produrre una domanda casuale, visualizzare cinque possibili risposte 
sullo schermo e ricevere dall’utente un ingresso che specifichi la ri¬ 
sposta esatta — o quanto meno cerchi di specificarla. 

Linee 17050-17070: questa routine determina la difficoltà del test. 
In un caso le risposte possibili verranno estratte dall’intero archivio 
e, dato che molte di queste ci appariranno probabilmente inappro¬ 
priate, il nostro compito di ricerca della risposta esatta sarà reso mol¬ 
to più facile. In alternativa le risposte possono essere estratte solo 
tra quelle dello stesso tipo, rendendo il compito più arduo, dato che 
tutte le risposte sembreranno almeno plausibili. 

Linea 17080: si estrae dall’archivio una domanda casuale, e una po¬ 
sizione casuale per il suo numero di posizione scelto dalla matrice Q. 

Linee 17090-17100: se QU vale 0, oppure se non ci sono cinque ri¬ 
sposte nello stesso gruppo, il campo da cui estrarre le possibili ri¬ 
sposte alternative è l’intero archivio P1-P2. Se QU vale 1 e ci sono 
almeno cinque risposte nello stesso gruppo, PI e P2 vengono riposi¬ 
zionati all’inizio e alla fine del gruppo stesso. 

Linee 17110-17150: vengono scelte quattro risposte casuali dal cam¬ 
po determinato da PI e P2. Si compie un controllo che la risposta 
selezionata in modo casuale non sia coincidente con la risposta esat¬ 
ta o con un’altra risposta casuale scelta in precedenza. 

Linee 17240-17260: l’utente viene premiato da una multicolore serie 
di cambiamenti dello sfondo dello schermo e viene incrementata la 
variabile RR. 
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Collaudo del modulo 5.1.8 


Se avete alcuni dati pronti da ricaricare, dovreste ora essere in gra¬ 
do di produrre i vostri test con risposte multiple. Potrete generare 
la forma più difficoltosa di test solo se avete introdotto dati suffi¬ 
cienti perché il programma possa sempre spaziare su un gruppo di 
cinque risposte dello stesso tipo. 


MODULO 5.1.9 


1 a000 REM######%# ##$$$$$$$##■+• ##if:#sfcìti#itijf# 
18010 REM PUNTEGGIO 

18020 REnmmmmmmmmmmmmmmm 

18030 F'R I NT ":TOÌÌ»i»Ìi»ÌÌÌÌ»*HdPUNTEGGI 

0" : IF QT=tì THEN RETURN 

18040 FRI NT " SWSìDQ MANCE TOTALI : " ; QT 

18050 FRINT " «RISPOSTE ESATTE RR 

18060 PRI NT " ÌEPIJNTEGG10 : " ; I NT < ( < RR-Q TV5 

)/(QT*.8))*100>; 

18070 INPUT "flU DESI CERI AZZERARE IL PUNT¬ 
EGGIO <S/N> Q$ 

18080 IF Q$="S" THEN QT=0 '• RR=0 
18090 RETURN 


Questo modulo calcola il punteggio tenendo conto anche del fatto 
che c’è una probabilità su cinque di dare la risposta giusta per puro 
caso. 


Riepilogo Si tratta di un programma piuttosto potente; ricordate tuttavia che 
solo introducendo dati sufficienti per renderlo godibile potrete veri¬ 
ficare questa affermazione. Il programma conferma inoltre che, 
quando possibile, dovendo scrivere un programma complesso, vai 
la pena di impegnarsi per scriverne uno di uso più generale, rispar¬ 
miando così in futuro parecchio lavoro. 

Ulteriori sviluppi 1) Allo stato attuale, il programma controlla che non si stampi due 
volte la stessa risposta per una sola domanda. Ciò che non fa è inve¬ 
ce controllare se due risposte distinte in realtà non siano la stessa. 
Potreste introdurre un controllo per affrontare questa difficoltà. 

2) È interessante la questione della “ricompensa”: gli adulti sem¬ 
brano trovare di per sé gratificante il successo mentre giocano con 
questo programma. Per i bambini sono tuttavia possibili vari tipi 
di ricompensa. Che dire dell’aggiunta al programma di un breve gio¬ 
co, accessibile per tre soli minuti, dopo aver risposto esattamente 
a un dato numero di domande? 


5.2 Parole 


Una volta in possesso di un programma di buon funzionamento, sco¬ 
prite presto che vi suggerisce altri usi. È il caso di Multidom, e il 
risultato è stato questo programma, utilizzabile come divertente 
ausilio nell’apprendimento di vocaboli da parte dei bambini nei pri¬ 
missimi approcci con la lettura. La sola concreta differenza tra que¬ 
sto programma e Multidom è che le domande vengono poste sotto 
forma di disegni, mentre le risposte sono parole che è possibile as¬ 
sociare alle figure. 
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Per quanto riguarda i disegni, non sono altro che il risultato di un 
altro programma di questo libro, Artista, raccolto dal nastro c cari¬ 
cato nel “dizionario” di questa routine. La capacità di questo pro¬ 
gramma, nella forma qui presentata, è di 50 disegni, benché sia pos¬ 
sibile caricarne dal nastro un altro insieme. I disegni previsti devo¬ 
no occupare solo le dieci linee inferiori dello schermo, dal momento 
che la parte superiore serve per le domande e le istruzioni destinate 
all’utente. 

Parole: lista delle variabili A% 

B<% 

FNA(SS) 

FNB(SS) 

WW$ 


Memorizza i dati di caratteri e colori per il disegno 
Coordinate degli angoli dei disegni 
Valore dell’elemento in A% di posizione determi¬ 
nata dalla locazione degli angoli dei disegni 
Codice di carattere effettivo, ricavato da FNA 
Risposta fornita al modulo delle domande 


MODULO 5.2.1 


11000 REM****************************** 
11010 REM MENU 

11020 REM****************************** 

11030 POH:.E 53231,15- PRI NT 
WBSPflROLE" 


11040 PRINT 
11050 FRINÌ 
I" 

11060 FRINT 
11070 FRINÌ 
11080 PRINT 
TEGGIQ" 
11090 FRI Ni¬ 
li 100 FRINÌ 
11110 FRINÌ 


" iEF LINZ 10NI DISPONIBILI " 

"« sai,'iNiunuz ione nuove voc 

" 2 :■ RI CERCA/'CANCELLAZ I ONE " 

" 3)CREAZIONE DOMANDE" 

" 4>VISUALIZZA 0 AZZERA PUN 

" 5)ARCHIVIAZIONE DATI" 

" 6>INIZIALIZZAZIONE" 

" 7)TERMINE" 


11120 INPUT " F UNZIONE RICHIESTA " ; Z PR 


I NT " 3" ; 

11130 OH Z GOSUB 13000,15000,16000,17000 
, 18000, 12000,11140 GOT 0 11000 
11140 FRI NT 
IUSARRIVEDEREI": END 


Un normale modulo di menu. 


MODULO 5.2.2 


12000 
12010 
12020 
12030 
49,4 
12040 
12060 


REM INIZIALIZZAZIONE 
RE 

CLR^ DIM A$C49),QC4 >,AZ(49,255. 
IT=0 : R$=CHR$(13) 

GOTO 11000 
GOTO11000 


, BZ ' 


Inizializzazione delle variabili principali. 
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MODULO 5.2.3 


MODULO 5.2.4 


Commenti 


1300U REr-1#***5*E*4E*jf.*4E**#s*s*****.+:^*:+:****:4e* 
13010 REM INTRODUZIONE VOCI NUOVE 
13020 REM****************************** 
13030 FRI NT MM9ÌÌÌÌii»iiii»iaHU0VE VOCI 

li 

13040 IF IT>=100 THEN FRI NT "JSWSPRZIO ES 
AURIT0":FOR 1 = 1 T0 3000 : NENT : RETURN 
13050 INPUT "SCPOSIZIGN ARE IL NASTRO, OU 
INDI PREMERE SRETURN5 ";Q$ 

13060 PRINT "□" •' OPEN 1,1,0, "fìRTISTA" : FOR 
I =0 TO 4 : INPUT# 1, B.vC IT, I > : NEXT 
13070 FOR I=0 T0 BNCIT, 4 ) -1 = INPUT#1,C1,C 

13080 f\7 .< IT, I > =256*C 1+C2-32767 : NEXT I : CL 
OSE 1 •' SS=IT 

13090 PR I NT " :T .; : GOSUB 14OO0 
13100 I NPUT " SEF ICURA ADATTA <S/N > " ; Q$ ■ I 
F Q$="N" THEN RETURN 

13110 INPUT "PAROLA DA ASSOCIARE ALLA FI 
CURA";u$ 

13120 I NPUT ' .SUDAI I ES ATT I < S/N > : " J Q$ : IF 
QI="N"THEN 13090 
13130 H$ < IT >-m I T= IT+1 
13140 INPUT "UN' ALTRA FIGURA <S/N) ",Q$ 
•'IF Q$="S" THEN 13000 
13150 RETURN 


Questo modulo raccoglie dal nastro i disegni creati con Artista e per¬ 
mette di aggiungervi la parola esatta. 


14000 

14010 REM DISEGNA 

14020 REmmmrmmmmmmmmmmmm*. 

14030 PP—0 :FOR I=BX(SS,1) +1 TO EX <SS,3 >- 
1 

14040 FOR J=ENCSS,0)+1 TO BK<SS,2>-1 
14050 PP=PP+1 : T1 = A“i < SS, PP > +32767 : POKE 10 
24+40*I+J,INT <T1/256) 

14060 POKE 55296+40*I+J,T1-256*INT(T1/25 
6):NEXT J,I 
14070 RETURN 

Questo modulo fa uso delle due funzioni già definite per estrarre 
dai valori numerici salvati da Artista i caratteri e i colori esatti e per 
immetterli nelle memorie di colore e di schermo. 

Linea 14030: B%(SS,1) e B%(SS,3) registrano le coordinate verticali 
degli angoli superiore sinistro e inferiore destro del disegno. 
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Linea 14040: B<>7o(SS,0) e BVotSS.Z) registrano le coordinate orizzon¬ 
tali degli angoli anzidetti. 



Collaudo dei moduli 5.2.1-5.2.4 


MODULO 5.2.5 


MODULO 5.2.6 


A questo punto dovreste essere in grado di caricare i disegni creati 
da Artista, vederli riprodotti sullo schermo e quindi caricarli nella 
matrice principale, associati a una data parola. 

18000 

18010 REM FILE BfìTI 

18020 REnmmmmmmmmmmmmmmm 

18030 PRINT ".«3P0SIZI0NARE IL NASTRO, QIJ 
INDI PREMERE RETURN®--" 

18040 INPUT "IL MOTORE SI ARRESTA IN MOD 
0 AUTOMATICO ";Q$POKE 192,7 POKE 1,39 
18050 PRINT "KSFUNZIOHI DISPONIBILI : " : PR 
INT "Mi 1)SALVATAGGIO DATI" 

18060 PRINT " 2>CARICAMENTO DATI" 

18070 INPUT "JSESFUNZI ONE RICHI ESTÀ : " ; Q : ON 
Q GOTO 18080,18140 : RETURN 
18080 POKE 1,7:FOR 1 = 1 TO 2000 :NEXT 
18090 OPEN 1,1,1,"PAROLE":PRINT#1,IT 
18100 FOR I=0 TO IT-1 :PRINT#1,A*<I),R*,E 
4(1,4) 

18110 FOR J=0 TO E"; ( 1,4 ) -1 :PRINT#1,ASCI, 
,T > : NE NT J 

18120 FOR J=Ó TO 3 : PR I NT# 1, E2 ( I, .J ) : NEXT 
J, I 

18130 CLOSE l:RETURN 
18140 OPEN 1,1,0,"PAROLE": INPUT#1, IT 
18150 FOR 1=0 TO IT-1: INPUT#1,AT<I>,EX<I 
, 4 ) 

18160 FOR J=0 TO B5£< 1,4>-l = INPUT# 1, AX< I, 
J):NEXT J 

18170 FOR J—0 TO 3 : INPUT# 1, BX< I, .J> : NEXT 
J, I 

18180 CLOSE1 : RETURN 


Un modulo di file dei dati standard. 


15000 REmWMWMMMMMMMMMmMm* 
15010 REM RICERCA UTENTE/CANCELLAZIONE 

15020 

15030 SS=0 ; IF IT=0 THEN RETURN 
15040 PRINT 'CT»*Ì»»Ì»*»*Ì»M3RICERCA" 
15050 IF SS>IT~1 THEN SS=IT~1 
15060 IF SS<0 THEN SS=0 
15070 PRINT 
VQCI = "; IT 

15080 PRINT "M8FUNZIONI DISPONIBILI:" 
15090 PRINT "Mi >1SRETURN® VOCE SUCCESSI 
VA" 

15100 PRINT "l > iti LIMERÒ POS/NEG PER MUOV 
ERE PUNTATORE" 


ili 







MODULO 5.2.7 


15110 PRIMI "I HDD- PER CANCELLARE VO 
CE" 

15120 PRIMI "i >3TZZZ' PER TERMINARE" 
15130 PRIMI u mt .‘oS > : GOSUB 14000 

15140 Q11= IHPIJT " jtìPftMmMslPMPlPliF IJNZI ONE 

RICHIESTA-’ ", Q1 $ 

15150 IF Q1$0"DDD" THEM 15190 
15160 FOR I=SS TO IT-l^FOR J=0 TO 255 :AX 
C I , J > =AX I + 1, .J > : NEXT J , I 
15170 FOR I =SS TO IT~1 A$< I > =A$ 0 + 1 ) : FOR 
j=y IO 4 : EX < I, J > =BX 0 + 1, J > : NEXT J , I 
15180 IT=IT-1 : GOTO 15040 
15190 IF Q1$="ZZZ" THEM RETURN 
1520U IF 0.1$="" THEM SS=SS+1 : GOTO 15040 
15210 SS=SS+VAL<Q1$ >: GOTO 15040 
15220 GOTO 15220 


Un modulo di ricerca d’utente di semplice fattura. 


16000 REM#^**#^4t*****if:***:4i*;f 
16010 REM DOMANDE CASUALI 
1602O 

16030 Q1 = I NT < RND < 0 ) * IT ) : 02= I NT (. RND < 0 > *5 ) 
: Q < 02)=01 

16040 FOR 1=0 TO 4 0F 1=02 THEM 16090 
16050 PP= I NT RND < 0 > # IT > 

16060 IF PF-Q1 THEM 16050 

16070 FOR J—0 TO I : IF PP=GKJ) THEM 16058 

16080 NEXT .J : QO )=PP 

16090 NEXT I 

16100 SS=Q 1 : PRI NT ":T ■ GOS'IJE 14000 
16110 PRIMT "Sii" ; : FOR 1=0 TO 4: PRIMI "M" 

.: A$<Q< I > > : NEXT 

16120 PRIMT "SBSCRIVI IL NOME ESATTO DEL 

LA FIGURA": INPUT WW$:QT*QT+1 

16130 IF WW$=fi$CQl>THEN GOTO 16150 

16140 PRIMT "MSB AGL IATO! LA RISPOSTA ES 

ATT A ERA : Bi" ; A$ < Q1 > : GOTO 16170 

16150 PRIMT "MUESATTOsESATTOBESflTTOkESAT 

TO^ESATTOBESATTO":RR=RR+1 

16160 FOR 1 = 1 TO 15 :P0KE53281,1 FOR J=1 

TO 200:NEXT J,I 

16170 INPUT " BiANCORA < S/N > : " ; Q$ : IF Q$= " S 
" THEM 16000 
16180 RETURN 


Questo modulo è equivalente al generatore di domande casuali di 
Multidom, tuttavia è più semplice per il fatto che sceglie le risposte 
possibili sempre dall’intero archivio delle voci presenti. 



MODULO 5.2.8 


Riepilogo 


Ulteriori sviluppi 


5.3 Dattilografo 


Dattilografo: lista delle variabili 


17010 REM PUNTEGGIO 

I 7 0 d 0 R Efltiif $ iti $$ -ti ti $ iti 111111111 it t 

17030 1F QT=0 THEN RETURN 
1704U PRINT " 3^ii»ÌÌiÌi»Ìi»H3PUNTEGG I 
0 " 

17050 FRI NT "JSWKDOMANDE TOTALI QT 
17060 PRINT " m ISPOSTE ESATTE :RR 
17070 PRINT "MSPUNTEGG10 ■ "I NT RR-QT/5 
) / ( QTt. 8 ) > 11 00 ? 

17080 INPUT "^DESIDERI AZZERARE IL PUNT 
EGGIO CS/N';- ";Q$ 

17090 IF Q$="8" THEN 0r=0 RR-0 
17100 RETURN 

La stessa funzione del modulo per il calcolo del punteggio di 
Multidom. 

Anche questo è un programma che, se deve avere una qualche utili¬ 
tà, richiede una certa mole di lavoro, dal momento che le figure di 
cui fa uso, in quantità, richiedono del tempo per la costruzione. Una 
risposta semplice al problema potrebbe essere quella di unirvi con 
qualche altro possessore di un 64 per scambiare i nastri dei disegni. 

II vostro hobby non deve isolarvi dal resto del mondo! 

11 problema della ricompensa riappare in modo ancora più pronun¬ 
ciato — provate ad escogitare modi per cui una risposta esatta pos¬ 
sa essere premiata in un modo più stimolante. 


Non tutti i programmi d’istruzione trattano la manipolazione di da¬ 
ti complessi. Gran parte dei processi di apprendimento si verificano 
grazie a un costante addestramento delle nostre reazioni, e i compu¬ 
ter in questo eccellono; è proprio per questo motivo che astronauti, 
piloti, ecc. attualmente imparano a svolgere la loro attività di fron¬ 
te a simulatori computerizzati invece che con il costoso e pericoloso 
oggetto reale. Questo programma non è ovviamente così ambizio¬ 
so, ciò nondimeno si dimostra strumento d’apprendimento estrema- 
mente efficace. 

Tra tutti i programmi che ho scritto, è forse il mio preferito. La sua 
presenza in questa sede dimostra che un programma non dev’essere 
necessariamente lungo per essere utile. È breve, “pulito” e adatto 
a quello che deve fare, cioè ad aiutarmi a migliorare la mia abilità 
di dattilografo. Di tutte le versioni che ho stilato, quella per il 64 
è di gran lunga la migliore, dunque spero che trovi posto nella vo¬ 
stra biblioteca. 

C$ Linea di spazi usata per cancellare una linea di testo 

CH Numero di caratteri presenti al momento nelle linee 

di prova 

ESATTO Numero di caratteri esatti 
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MODULO 5.3.1 


Commenti 


SOMMA Numero di caratteri battuti 

TI Variabile di sistema che conta il tempo trascorso in 

sessantesimi di secondo 
Memorizzazione temporanea del tempo 

1100U #*##if:if:$$$#$:+.4-:$.+4.4:444444 

31910 REM VISUALIZZO TASTIERA 
11820 

11030 P0KE53281,6 

11040 FRI NT "l'KH —■ _— m—— 


11050 A $=" t-1234 r :■ 6 78 3 0+" 

11060 FRINT " "; :FOR 1=1 TQ 14 FRINT 

" su m" ; n i m c At, i, 1 >• next 

11070 FRI NT "SU 31.1 301 aB'' 

11080 FRI NT " «a 

II 

11090 H$="QWERTVUI0P@#f " 

11100 FRINT " a sCCK"j FOR 1 = 1 TO LEH 
< A$ : PRI NT " 13 i:T i MID $ < f\$ ,1,1 > ; NEXT 
11110 PRINT "SU SRRi 

11120 FRINT " 13 

II 

11130 H$="ASBFGHJKL ■ 

11140 FRI NT " 3 afr:i aei"; 

11150 FOR 1 = 1 TO LEN(A$> : FRI NT 'ita "al" ;M 
1,1); NEXT 

11160 FRINT n :tì aRRa afl" 

11170 R:£="ZXCVBNM, 

11180 FRI NT " tea 

11190 FRI NT " aia dRm atSHa 

11200 FOR 1=1 TO LEN<A$) FRINT "«a SaTlM 

I B$ < A$, I .• 1 >NEXT 

11210 FRI NT "S* atfilHi alti aRis " 

11220 FRINT " na 

il 

11230 FRI NT " a 3 al 

B 

Lo scopo di questo modulo è semplicemente far apparire sullo scher¬ 
mo una raffigurazione schematica della tastiera del 64, in modo che 
si possa guardare lo schermo invece della tastiera, mentre si batte 
un tasto. 

Linee 11050-11070: questa sezione, come le seguenti, stampa le par¬ 
ti laterali della tastiera (tasti come RETURN e RESTORE) che non 
seguono lo schema regolare, stampa quindi una linea di spazi neri 
inversi a cui sovrappone i nomi dei tasti alfanumerici, nelle posizio¬ 
ni appropriate. Viene poi posta sotto la fila dei tasti una linea nera 
inversa. 
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Collaudo del modulo 5.3.1 

MODULO 5.3.2 


Commenti 


Questo modulo dovrebbe stampare una copia della tastiera nella metà 
superiore dello schermo. 


120 UU REM##$ 4: $#4:$ $$ ifcitSjf 

12010 REM INGRESSO 

12020 

12030 SOMMfl=0•ESRTT=0 :CH=0 RESTuRE : TT$=" 
000000 " 

12040 C$=" 

il 

12050 READ hi- IF fì$="STOP" THEN GOTO 120 
30 

12060 FRINÌ ‘'iMPliiMUM?]'' 

12070 FOR LINEfi*l TU 3:PRINT C$,■NEXT:PR 

int "rrm" 

12080 IF LEN<A$»39 THEN PRIMI "LINER TR 
OPRO LUNGA": STOP 

12090 PRINT "a 1 ; hi ■ PRIMI "naia"; = FOR 1 = 1 
TU LEN<A$> 

12100 GET li -IF TT="" THEN 12100 
12110 IF T$="T' OR T$-"M" OR T$="M" OR T 
$="H" OR T*=CHR$<13> THEN GOTO 12100 
12120 IF 1=1 THEN TI$=TT$ 

12130 SQMMR=SOMMfi+l : PRINT TT; " II" ; 

12140 IF T TOMID $<FU .1,1 > THEN PR I NT "Hi 
H"j : GOTO 12100 

12150 ESATT=ESATT+1 :NEXT I :PRINT ":CH= 
CH+LEN<A$> : TTT=TIt 

12160 PR I NT " mm ".; STRT I NT C ESRTT/SOMMAI 
1000>/10) ; 


12170 

PRINT STRT 

(INI OS 

CRINA/ < 

TI ,.‘6000> )/10 

0).:" i; 

JfìR/SEC " 




12180 

INPUT "CONTINUA 

<S/N> : 

" ; Q$ 

12130 

P0KE 780,0 

: P0KE 

781,21 

: POKE 782,0: 

SVS 65520:PRINT , 

Ci 



12200 

IF QtO"N" 

THEN 

12050 


12210 

END 





Questo modulo stampa una linea di testo da copiare, accetta quindi 
un ingresso tasto per tasto, tenendo conto del tempo, del tasso di 
successo e indicando gli errori. 

Linea 12050: il testo da copiare è memorizzato nelle frasi DATA po¬ 
ste alla fine del programma. Queste istruzioni DATA devono essere 
concluse con una linea contenente semplicemente FINE, come nelle 
accluse linee d’esempio; ciò conduce il programma nuovamente al¬ 
l’inizio delle READ. 

Linee 12060-12090: queste linee utilizzano la stringa di spazi CS per 
cancellare l’area dove bisogna stampare il testo, stampano il testo 
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Collaudo del modulo 5.3.2 


Esempio di esercizio 


e spostano la posizione di stampa verso il basso per accettare l’in¬ 
gresso sulla linea inferiore. 

Linea 12110: non vengono accettate come ingresso le frecce di mo¬ 
vimento cursore. 


Linea 12120: il programma tiene conto del tempo utilizzato per bat¬ 
tere il testo, ma il conteggio inizia solo dopo aver battuto la prima 
lettera di ogni linea e viene sospeso tra le varie linee. 11 tempo totale 
impiegato fino a questo punto viene memorizzato in TT$, valore al 
quale viene inizializzato TI$ all’inizio di ogni linea (vedi ultimo pro¬ 
gramma). 

Linee 12130-12150: viene stampata l’ultima lettera battuta. Se sba¬ 
gliata, appare una freccia indicante l’errore e la posizione di stampa 
viene riportata a quel punto. Vengono registrati il numero totale dei 
tasti premuti e il numero di quelli giusti. 

Linee 12160-12180: dopo aver terminato la linea viene visualizzato 
il tasso percentuale di successo. La variabile di sistema TI, che con¬ 
tiene lo stesso valore di Tl$, espresso però in sessantesimi di secon¬ 
do, viene utilizzata per calcolare il numero di caratteri battuti al se¬ 
condo. La formula apparentemente involuta assicura di stampare 
normalmente due posizioni decimali. 

Linea 12190: questa linea mostra un metodo alternativo per deter¬ 
minare la posizione in cui stampare il prossimo carattere. Per fare 
uso di questo metodo è necessario forzare (tramite le POKE) zero 
nella locazione 780, la posizione della riga nella 781 c quella della 
colonna nella 782. Chiamando la routine ROM a 65520, si porta quin¬ 
di la posizione di stampa in quel punto. Questo metodo si può uti¬ 
lizzare per sostituire stringhe contenenti i caratteri di controllo del 
cursore. In tal caso viene semplicemente usato per fare sì che il mes¬ 
saggio ANCORA venga sovrastampato con una linea di spazi, se il 
programma deve continuare. 


Non è possibile collaudare questo modulo finché non siano state in¬ 
serite alcune DATA che devono essere lette dal programma. Intro¬ 
ducete un altro modulo a 13000, consistente nel testo su cui volete 
esercitarvi. Terminate con una linea DATA contenente FINE, date 
quindi inizio all’esecuzione del programma. Dovreste trovarvi di fron¬ 
te la prima linea di testo memorizzata come DATA, ed essere sotto¬ 
posti al test come descritto nel commento. 


JUUfeJ 

3010 REM DATI IH PROVA 
3020 


********* 


13030 
•J AS" 

DATA 

"ASDF 

: LKJ 

ASDF 

: LKJ 

ASDF ; LH 

13040 
J AS" 

DATA 

"ASBF 

: LKJ 

ASDF 

: LKJ 

ASDF j LH 
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Hok LRD Fi L I... F 


13850 DATA "R RD ADD RDDS; 

RLLS" 

13060 DATO "fl RD HDD RDDS/ RSK LRD FlL.L F 

RLLS " 

13070 DRTR "Fi RD HDD RDDS; RSK LRD ALL F 

RLLS" 

13080 DRTR STOP 

Riepilogo Questo programma può esservi realmente utile solo se lo usate se¬ 
riamente. Per farne il miglior uso possibile bisogna procurarsi un 
libro di esercizi di dattilografia e utilizzarlo come base per i dati da 
introdurre. Per lo sforzo richiesto sarà un efficace strumento per mi¬ 
gliorare la vostra padronanza della tastiera. 

Ulteriori sviluppi Una corretta tecnica di dattilografia dipende dall’uso del dito giu¬ 
sto per ogni tasto. Nello stilare un adeguato programma istruttore, 
dovrebbe essere semplice colorare i tasti della tastiera per indicare 
il dito da usare. Alla peggio potrebbe essere un buon esercizio nel¬ 
l’uso delle funzioni di colore all’interno di una stringa. 
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6. Alta 
micro-finanza 


6.1 Banchiere 


Banchiere: lista delle variabili 


Nonostante i vari aneddoti su bollette del gas da un miliardo di lire, 
una cosa che i computer fanno in modo superbo è trattare informa¬ 
zioni finanziarie. Ciò non dipende solo dal fatto che sanno memo¬ 
rizzare ed elaborare i dati molto più rapidamente di un essere uma¬ 
no, ma soprattutto dalla loro capacità di presentare i fatti in modo 
chiaro e comprensibile. In questo capitolo troverete tre programmi 
di gestione domestica che fanno uso sia delle capacità di calcolo del 
64 sia della sua versatile gestione dello schermo, per dissipare, al¬ 
meno in parte, le nebbie che avvolgono la finanza. 


Il nostro primo programma si chiama appunto Banchiere; è un sem¬ 
plice strumento progettato per tenervi aggiornati circa lo stato delle 
vostre finanze, prima che la temuta busta della banca scivoli nella 
cassetta delle lettere. Il programma tratta versamenti e introiti, pa¬ 
gamenti regolari e voci saltuarie, producendo un estratto conto ben 
impaginato per ciascun mese. Nel corso del programma inizierete 
ad affrontare alcuni dei problemi connessi alla traduzione di dati 
numerici sullo schermo in forma comprensibile. 


A(99,l) 

Memorizzazione dell’ammontare dei versamen¬ 
ti/prelievi e del giorno di effettuazione 

A$(99,l) 

Memorizzazione delle causali e mesi in cui effettuare 
i versamenti 

CD 

Indicatore di credito/debito delle operazioni 

CRS 

Separatore nel file dei dati 

IN 

Indicatore di avvenuta inizializzazione 

M 

Numero del mese meno 1 

MM 

Variabile temporanea utilizzata nel formattare l’am¬ 
montare delle operazioni 

MM$ 

Variabile contenente l’ammontare delle operazioni 
già formattato 

MO$ 

Memorizzazione del nome dei mesi 

PA 

Numero di operazioni memorizzate 
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MODULO 6.1.1 


MODULO 6.1.2 


Stringa temporanea contenente i mesi in cui effet¬ 
tuare il versamento 

Memorizzazione temporanea del giorno del versa¬ 
mento sul mese specificato 
Utilizzata per cumulare le somme, per calcolare il 
totale dell’estratto conto 


11 000 **$$$ 

11010 REM MENU 

11020 REMif^if**^***##*^:*^*##'***^***^*-** 

1 1 030 POKE5328 1,7 ■ F'R I NT " 
WI3WBANCHIERESS" 

11040 PRINT "XMFUNZIOHI DISPONIEILI-" 
11050 PRINT "M 1)NUOVI VERSAMENTI" 

11060 PRINT "M 2>ESftMINA/CANCELLA VERSA 
MENTI" 


11070 PRINT 
11080 PRINT 
11030 PRINT 
11100 PRINT 
11110 INPUT 
RI NT "3!", 


"M 3>STAMPA ESTRATTO CONTO" 
"M 4 > ARCAIVIAZIONE HATI" 

"M 5 >INIZIALIZZAZIONE" 

"W 6>TERMINA" 

" MSUFUNZIONE RICHI ESTÀ :";Z•P 


11120 IF Z=5 OR Z=6 OR IN~1 THEN 11140 
11130 F’RINT ":PMfM?jP*»Ìi^imiCiN INIZIALIZZA 
TO,":F OR I—0 T02000 :NE NT: GOTO11000 
11148 IF F'AOU OR <Z<>2 AND Z03) THEN 1 
1160 


11150 PRINT "MUttMBlcUMtUDATI NON PRESENTI 
•" ; FOR 1=1 TO 2008 NENT : GOTO 11000 
11160 ON Z GOSUB 13000,14000,15000,16000 
,12800,11180 
11170 GOTO 11000 
11180 F'RINT " 

"SBANCA" 

11130 PRINT "HPWiitiiilCHIUSA PER AFFARI 


11200 END 


Un modulo di menu standard. 


12000 REMftm*:mim***;m:m;m******ft 

12010 REM VARIABILI 

1202U REM*^'*^**^*************^**:^^***^* 

12040 CLR : I H= 1 li IM HT (. 99, 1 >, A ( 99, 1 ) ■ R ( 0, 
1>=993 

12050 RESTARE 
12060 S$=" 

12078 DIM M0$( 11 > : FOR 1=0 TO 11 : READ A$ ■' 
MO*<I> =fì$:NEXT : CR$=CHR$(13 > 

12030 DATA SENNAI0,FEBBRAI0,MARZO.APPILE 
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MODULO 6.1.3 


Commenti 


.. MiìGG 10, GI UGNO, LUGL10, AGOSTO 

12090 DATA SETTEMBRE,OTTOBRE,NOVEMBRE,DI 

GEMERE 

12100 GOTO 11000 

Inizializza le variabili e pone i nomi dei mesi in MO$. 


13 U 0 0 R E M # * * ****** * * * * * * * * * ******** * * * * 
13010 REM INTRODUZIONE VOCI NUOVE 
13020 REM****************************** 
13030 FRI NT "^Ma:-#»li*»»*»l«ÌÌ»HJUOVE VOC 
I SS" 

13040 FRINT " 1 SCREDITO": FRINT " 2)DEB 

ITO" 

13050 INPUT " MSPEC IFI CARE •• " ; CD : CD«CD-1 
13068 INPUT "AUSALE DEL VERSAMENTO : " 

; QT 

13070 1NPUT " m MPORTO:";Q 

13080 INPUT "MIESI <P.ES. 01040710)="JR# 

: PRI NT " ^ÌI>|iVli|iÌliiiiRi«lli»»i!»ÌWÌ»ll>ÌI»!r 1 

13090 F’JR 1 = 1 TO LEN < RT ) STEP 2 ■ LET M=VA 
LCMIDTCRT, I,2))-l 

13100 IF M>=0 AND MO11 THEN GOTO 13130 
13110 FRI NT : PRIMI "TT/ALORE DI MESE NON V 
ALIDO TI" 

13120 POR J=1 TO 2000 : NEXT : GOTO 13088 
13130 PR I NT MOT < M > ; "/ ".: ■ NEKT : PR I NT 
13140 INPUT "MCIORNO DEL VERSAMENTO ; S 
13150 INPUI " MMWDflT I ESATTI < S/N > : " ; TT I 
F TT="N" THEN FRINT "3"; ; GOTO 13OO0 
13160 PA=PA+1FOR J=PA~1 TO 0 STEP-1 
13170 IF SCACJ, I) THEN FOR R=0TO1 : ATC J+l 
, K ) = AT ( J.. K >: A C J+1, K >=A C J, K ;• : NEXTK ; J 
13180 J=-T+1 : AT { J, 1 ) = " 000000000000" 

13190 FOR 1 = 1 TO LEN<RT> STEP 2 31=VAL(MI 
DTCRT,1,2)) 

13200 ATC J,1)=LEFTT <AT<J,1),M-1) + "1"+RIG 
HTTCHTCJ,1),12-M) : NEXT 
13210 AT <J,0)=QT : A<J,0)=Q: ACJ,1)=S 
13220 IF CD=1 THEN A<J,0)=A<J,0)*-l 
13230 RETURN 


Lo scopo di questo modulo è permettere l’introduzione della distin¬ 
ta delle operazioni e dei dati associati. 

Linee 13080-13130: i mesi in cui si compie un pagamento possono 
variare tra 1, per operazioni saltuarie, e 12, per un ordine fisso. 1 
mesi vengono introdotti sotto forma di una stringa di numeri di due 
cifre che viene letta e controllata; si stampano quindi sullo schermo 


121 





MODULO 6.1.4 


Collaudo dei moduli 6.1.1-6.1 .4 


i nomi dei mesi, per controllo. Questo semplice metodo d’ingresso 
permette una notevole versatilità senza ricorrere a complessi 
programmi. 

Linea 13170: le operazioni vengono memorizzate in una sola matri¬ 
ce, secondo il giorno di effettuazione. L’inserzione si esegue sempli¬ 
cemente scandendo il file dal giorno di valore più elevato. 

Linee 13180-13200: queste linee costituiscono un indicatore del me¬ 
se formato da 12 zeri. Si scandiscono quindi i mesi specificati per 
porre a 1 le corrispondenti posizioni nell’indicatore. 

Linea 13220: introiti e versamenti vengono tutti introdotti come som¬ 
me positive. Se la variabile CD segnala un debito, l’ammontare vie¬ 
ne moltiplicato per meno uno. 

14008 REMMmMMmMMMMMmMMM*. 
14010 REM ESAMIHA/CAHCELLR VOCI 

14028 REmmmmmmmmmmmmmwmm 

14038 F0R 1=0 Tu Pfì-1 FRI NT 
14040 PRI NT " MOPERfìZ I ONE : "A$ < 1,0 > 

14050 PRINT "MIMPORT0 ", A(1,0> 

14060 PRINT "MMESI "J : F0R J=1 TO 12 
14070 IF MID$( A$(1,1>,J,1) = "1" THEH PRIN 
T M0$(J-l);V"; 

14080 NENT J:PRINT 

14090 PRINT "MSIORNO DELL’ OPERAZIONE : "; 
A(I, 1> 

14100 PR I NT " MWKWan'ASTI FUNZ10NAL1 : WS" ■ P 
RINT "MI - VOCE SEGUENTE" 

14110 PRINT "M2 - TERMINA":PRINT "MS - C 
ANCELLA VOCE VISUALIZZATA" 

14120 PRINT "flSFUNZIONE RICHIESTA : ?Bl" 
14130 GET Q$ : IF Q$="" THEH 14130 
14148 IF ASC(Q$>0140 T'HEN 14170 
14150 FOR ,T=I TO PA-1 : F0R K=@ TO 1:R$CJ, 
K >=H$(J+1, K>: A < J, K >=A C J+1, K) : NENT K,J 
14160 PA=PA-1-RETURN 
14170 IF ASC02$::'= 133 THEH NENT I 
14180 RETURN 


Un semplice modulo di ricerca-utente che stampa le operazioni e i 
mesi in cui effettuarle, permettendone la cancellazione tramite tre 
dei tasti funzione utilizzati per introdurre i comandi. 

Dovreste a questo punto essere in grado d’introdurre le operazioni 
e i mesi in cui dovranno essere effettuate, e discorrere lungo queste, 
cancellandole a piacere. 
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MODULO 6.1.5 


MODULO 6.1.6 


Commenti 


16800 rem****************************** 

16010 REM FILE DATI 

16020 rem****************************** 

16030 FRINT"POSIZIONARE NASTRO,PREMERE 3 
RETURN*" : INPIJT" ARRESTO AUTOMA!' ICO", Q* 

16046 F’OKE 192, 7 : F'OKE 1,39 

16050 FRINT "PREDISPORRE IL REGISTRATOR 

E, ": INPUT "PREMERE PETURN1";Q$ 

16060 POKE192,7 :POKE1,39 
16070 PRI NT " FIJN21ONI DI SF’ON IEILI " : PRIN 
T "iitìl ) SALVATAGGIO DATI" 

16075 PRINT "2>CARICAMENT0 DATI" 

16080 INPUT "SS UNZIONE RICHIESTA ";Q'ON 
Q GOT0 16100,16150 
16090 RETURN 

16100 POKE192,0 FuR I — l TO 5G00•NEXì 
16110 OPEN 1,1,2,"BANCA" 

16120 PRINT#1,FA 

16130 POR I=0 TO PA-1 ; PRINT#1,A$ <1,0),CR 
$ ; A* <1,1>;CR$,A<1,0 >,CR$,A <1,1):NENT 
16140 CLOSETRETURN 
16150 OPEN 1,1,0,"BANCA" 

16160 INPUT#1,PA 

16170 FOR I =0 TO PA-1 : I NPIJT# 1, A* < I , 0 > , A$ 
K I, 1 >, A C1,0 >, A < 1,1 ) : NENT 
16180 CLOSE1 
16190 GOTO 11000 


Un normale modulo di file dei dati. 

17000 rem****************************** 

17010 REM FORMATO 

17020 REM#############**####*#***###*## 

17030 M$=STR$<MM>:HWZ=LEN<M$) 

17040 FORFF= 1T09-HW’i : M$= " " +M$ : NEXT : RETU 
RN 


Questo breve modulo è un semplice metodo per ottenere un forma¬ 
to standardizzato per gli importi di denaro da stampare tramite il 
modulo successivo. 

Linea 17030: questo modulo viene richiamato da più posizioni del 
modulo di programma seguente, e opera su valori estratti da varia¬ 
bili diverse. A questo scopo, il valore da formattare deve essere pri¬ 
ma memorizzato nella variabile MM. Questa viene ora convertita in 
una stringa di cui si calcola la lunghezza. Notate che, quando si con¬ 
verte un numero in una stringa tramite STR$, viene automaticamente 
aggiunto uno spazio iniziale, in modo che il secondo carattere del 
numero occuperà in realtà la terza posizione della stringa. 
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MODULO 6.1.7 


Commenti 


Linea 17040: la routine inserisce degli spazi in modo da avere sem¬ 
pre stringhe di lunghezza pari a otto caratteri. Siffatte stringhe si 
possono stampare in modo da assicurare l’incolonnamento a destra. 

15000 REM#4444444.4:444444■+;44444444444444 
15005 REM COMPÌLR ESTRATTO CONTO 
15010 REM444444444444444444444444444444 
1502O FRI NT " SWItiiililiiS'CSTRRTT 0 C0NT01" 

:SOM-0 

15030 INPUT "«NUMERO DEL MESE BR DOGI IMEN 
TRRE:";Q 

15040 IF Q=1 THEN 15080 
15050 FOR Ql=l TO Q-1:F0R 1=0 TO PR-l-IF 
MI D$ ■:! fì$ < 1, 1 ) > Q1, 1 > O " 1 " THEN 15070 
15060 S0M=S0M+R <1,0> 

15070 NENT I,Q1 

15080 PRI NT " ; ri UT C Q-1 > 

15090 pr iNT "Eia»t»»»i»»rv i oc i titiitiiiim 

TRLE1" 

15100 PRINT "IBILANCIO 

tiiiiir ; 

15110 IF SQMOH THEN PRINT "Tal" 

15120 LE f MM=fìE‘S ( SOM > : GOSUB 1 7000 : PR INT 

m 

15130 FOR 1=0 TO Pfi-1 

15140 IF MI B$ C h$ < 1,1), Q, 1 > O " 1 " THEN 152 
20 

15150 L.ET MM=R< 1, 1 > : GOSUB 17000 : PRI NT " ■ 

" ; MT; 

15168 IF A<1,0X0 THEN PRINT "SS"; 

15170 PRINT fi$ < I,0) 

15180 PRINT 

: MM=ABS < H(L 0 ) > ■ GOSUB 17000 : PR I NT M$ 

15190 SOM=SOM+fl<1,0):PRINT "HKb"; :IF SOM 
<0 THEN PRINT "lai"; 

15200 MM=ABS<SOM>:GOSUB 17000 :PRINT M$ 
15210 GET fi$ : IF RT=" 1 THEN 15210 
15220 NEXT I : INPUT " SRETURNI PER CONTIN 
URRE ; ";X 
15230 RETURN 

Questo modulo produce estratti conto mensili di limpida impagina¬ 
zione — appunto lo scopo del programma. 

Linee 15030-15070: vengono esaminati tutti gli indicatori del mese 
delle operazioni memorizzate per stabilire se siano state compiute 
operazioni sotto l’intestazione di mesi precedenti a quello dell’estrat¬ 
to. Tali operazioni vengono cumulate per avere un bilancio del con¬ 
to all’inizio del mese specificato. 
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Linee 15100-15120: si stampa il bilancio, facendo uso del modulo 
precedente per incolonnarlo. Notate la facilità d’indicare un bilan¬ 
cio negativo, stampando il carattere di controllo per il rosso. 

Linee 15130-15220: viene ora esaminato l’archivio delle operazioni 
che si riferiscono al mese corrente. Ogni volta che si trova un’ope¬ 
razione pertinente, viene stampato il giorno sul lato sinistro dello 
schermo, utilizzando il modulo di formattazione per standardizzare 
la stampa. Viene poi stampato il nome dell’operazione, seguito dal¬ 
l’ammontare della stessa, con l’aggiunta del carattere di controllo 
del rosso se si riferisce a un debito. Al termine l’importo viene ag¬ 
giunto alla variabile SUM e viene stampato il bilancio corrente ac¬ 
canto all’ammontare dell’operazione, ancora una volta in rosso se 
il bilancio è negativo. Il versatile controllo di cursore del 64 rende 
la costruzione di simili tabelle molto agevole — se l’aspetto finale 
non vi soddisfa, aggiungete semplicemente uno o più spostamenti 
del cursore fino ad ottenere il risultato voluto. 

Linea 15210: le operazioni vengono stampate una alla volta, solo 
in seguito all’azionamento di uno qualsiasi dei tasti. Si previene in 
questo modo lo scorrimento verso l’alto oltre l’estremità dello scher¬ 
mo, prima che le scritte possano essere esaminate. 

Collaudo dei moduli 6.1.6-6.1.7 Se avete già salvato alcuni dati, dovreste ora essere in grado di rica¬ 
ricarli nel 64 e di richiedere un estratto conto mensile, con gli im¬ 
porti e le causali dei versamenti incolonnati in modo chiaro. Se l’in- 
colonnamento risulta corretto, il programma è pronto all’uso. 

Riepilogo Questo programma molto lineare solleva alcune domande interes¬ 
santi circa il grado di raffinatezza necessario a rendere utile un pro¬ 
gramma. Introdurre i mesi sotto forma di stringa è, per molti aspet¬ 
ti, un’operazione piuttosto rozza a confronto dell’indicare se si de¬ 
ve eseguire il versamento mensilmente, trimestralmente o annualmen¬ 
te, lasciando al programma il compito di inserirlo nei mesi pertinen¬ 
ti. Una tale funzione aggiuntiva sarebbe facilmente realizzabile, ma 
aumenterebbe la lunghezza del listato e ridurrebbe la versatilità con¬ 
nessa all’indicazione diretta del mese, che permette d’inserire anche 
mesi irregolari. Nel progettare i vostri programmi, dovete essere sem¬ 
pre consapevoli di questa divergenza tra ciò che è conveniente ese¬ 
guire in modo automatico e ciò che vale la pena di lasciare all’uten¬ 
te — la risposta può variare secondo l’utente, ma la complessità im¬ 
plicata può risultare costosa in termini di memoria e può effettiva¬ 
mente ridurre l’utilità di un programma. 

Ulteriori sviluppi 1) Il modulo di cancellazione è estremamente semplificato, permet¬ 
tendo all’utente di scorrere le registrazioni una per una. Perché non 
aggiungere una funzione per definire un salto positivo o negativo, 
usando, per esempio, uno dei programmi precedenti? 

2) Un secondo miglioramento potrebbe essere l’aggiunta di un mo¬ 
dulo di ricerca binaria, per sostituire l’attuale scansione dalla fine 
del file durante l’inserzione delle voci. 
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6.2 Ragioniere 


Ragioniere: lista delle variabili 


MODULO 6.2.1 


3) Gli indicatori dei mesi utilizzano 12 byte interi per ogni opera¬ 
zione. Tramite le vostre attuali conoscenze su AND e OR, dovreste 
poter memorizzare e raccogliere le stesse informazioni con due soli 
byte (cioè un elemento in una matrice di numeri interi). 


Questo programma non redigerà i registri in vece vostra, ma li ren¬ 
derà molto più semplici da tenere e li presenterà in un formato ordi¬ 
nato ogniqualvolta lo desideriate, prevedendo, nella stampa di re¬ 
soconti effettivi, registrazioni singole, voci principali e voci 
dettagliate. 


A$(l ,99) 
A(1,99) 
C$ 

C(1) 

CD 

CR$ 

GR 

HH$ 

IN 

M$ 

MM 

PL 

SS 

TT 


Archivio principale dei nomi delle operazioni 

Archivio principale degli importi delle operazioni 

Linea di spazi utilizzata nella cancellazione di testi 

Matrice contenente il numero delle registrazioni nella 

lista crediti/debiti dei rendiconti 

Indicatore di credito/debito di una operazione 

Separatore nel file dei dati 

Utilizzata per registrare il numero di operazioni sotto 

una singola voce 

Memorizzazione temporanea del nome di una voce 
principale nel modulo di ricerca - utente 
Indicatore di avvenuta inizializzazione 
Stringa contenente l’importo formattato 
Variabile temporanea utilizzata nel formattare gli 
importi 

Posizione nel file per l’inserzione di una nuova vo¬ 
ce dettagliata 

Variabile temporanea utilizzata per cumulare le re¬ 
gistrazioni sotto una stessa voce principale 
Utilizzata per cumulare le registrazioni nei rendiconti 


11000 REM****************************** 
11010 REM MENU 

11020 REM****************************** 

11030 PONE53281,7- F'R I NT " llt» lift Milli ile ili Mi 
«ISERAG IONI ERE!" 


11040 FRINÌ 
11050 FRINT 
11060 FRINÌ 
11070 FRINÌ 
11080 FRI Ni¬ 
li 090 FRINÌ 
11100 FRINT 
11110 INPUT 
RI NT "IT; 


"HWPFUNZIONI DISPONITILI : " 

" m 1 > NUOVE I NTESTFlZ I ON I " 

"M 2)ES AMINA/'C ANCELLA VOCI" 
"M 3)STAMPA ESTRATTO CONTO" 
" M 4 > HRCHI V IHZIONE HATI " 

5)INIZIALIZZAZIONE" 

"M 6)TERMINA" 

"MWiFUNZIONE RICHIESTÀ :";Z:P 


11120 IF Z<1 OR Z>4 OR IN=1 THEN 11140 
11130 FRI NT " fM?M?I»JÌÌÌiil-ION INIZI ALI ZZA 
TO. " ^ FOR I ~0 T 02000 ■■ NEXT : GOTO 11000 
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MODULO 6.2.2 


MODULO 6.2.3 


MODULO 6.2.4 


11140 IF 2<4 AND Z>0 THEN GOSUB 13000PR 
IHT “IT ■ 

11150 OH 2 GOSUB 14000.-17008.19080.. 20000 
, 12000.. 1 i 1 70 2=0 : GOl 0 1 1000 
11170 PRIMI ''[isMSDSftMClClPWJMP#Pi8JSf’s*-'ROC jRHM 
MA TERMINATO": END 


Un modulo di menu standard. 


12000 R E M # 4 * 4 5f:44 4 * 4 4 4 4 4 4 4 44444444 4 4 4 * 4- * 

12018 REM VARIABILI 

12 U 2 0 R EM44444444444444 4 4 4 4444 * * 4 * * 4:4 * $ 

12840 OLE^ BIM R$C1,99>,A<1,99 > CR$=CHR$< 

13 > 

12050 C$=" 

II 

12860 IN=1^ GOT0 11080 


Modulo d’inizializzazione. 


1300u REmwmmmmm-mmm -mmmmmm 

13010 REM CREDITO / DEBITO 

13028 R E M 4 4 4: 4 * 4.4 * 4 4444.444 * 4 * 4 '4 4 4 4444444: 
13030 FRI NT " :?It!M?.M«5lt!lP*Ì!i»#Ìft8ill ) CREDITO 
4.:[!<1IIIHIIIIIHI2 J- DEB ITO" 

13048 I NF'UT " M»jmii8HI«Ìt3PEC IFI CARE ■ ".: CD ; 
CD=CD~1 RETURN 


Prima di una qualsiasi registrazione si domanda all’utente di speci¬ 
ficare se si tratti di un credito o di un debito. 

14000 REM#44444444444444444444444444444 
14018 REM INTESTAZIONI 

14020 REM44444444444444444444^444444444 
14030 FRI NT ":i«»*»*ÌÌIiMSNUOVE VOCI : : IF 

CD=0 THEN PRINT "A CREDITO" 

14040 IF CD=1 THEN PRINT "A DEBITO" 

14050 PRINT "SSELA VOCE PUÒ-' ESSERE '• " ; PR 
INT "Sttì 1> UNA VOCE SINGOLA" 

14060 PRINT "M 2>UNA VOCE PRINCIPALE" : PR 
INT "M 3)UNA VOCE DETTAGLIATA" 

14070 PRINT "M PREMERE "0' PER TERMINARE 

ti 

14080 I NF'UT " miPEC IF I CARE : " ; TT 
14890 ON TT GOTO 15000;15000*16000 
14100 RETURN 

Quando viene inserito un elemento, si domanda all’utente di speci¬ 
ficare se si tratti di una voce principale, di una voce dettagliata o 
di una registrazione singola. Quando vengono stampati i rendicon- 
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MODULO 6.2.5 


Commenti 


MODULO 6.2.6 


ti, le voci principali non sono accompagnate da alcun totale, le voci 
dettagliate sono poste sotto la rispettiva voce principale e viene stam¬ 
pato un sub-totale per il gruppo, mentre le registrazioni singole si 
trovano da sole, insieme con una somma. 

15000 REmmrMmwmwmmmmmmmmmm 

15010 REM VOCI SINGOLE 0 PRINCIPALI 
15020 

15030 Q=0 ; INPUT "«GNOME DELLA VOCE:"IO* 
15040 IF TT02 THEN INPUT "^IMPORTO : " ; 0 
15050 INPUT "MATI ESATTI <S/N> : " ; R$ IF 
R$="N" THEN 14000 

15060 Q$="V"+Q$:IF TT=2 THEN Q$="*"+MID$ 

(. 0 :$, 2 > 

1 5070 fìf < CD, C<CD > > =Q$ : A ( CD, C<CD > > -Q : C (. CD 
>=C<CD >+1 : DOT0 14000 

Questo modulo riceve l’ingresso di voci principali o singole 
registrazioni. 

Linea 15040: si richiede un importo solo se l’elemento non è una in¬ 
testazione principale. 

Linea 15060: si appone un indicatore all’inizio dell’elemento: °7o per 
una registrazione singola, * per una voce principale. Questi non ver¬ 
ranno stampati, ma saranno utilizzati dal programma per identifi¬ 
care i vari tipi. 

Linea 15070: notate l’uso della variabile CD per specificare su quale 
colonna della matrice principale verranno memorizzati il nome e 
l’importo. 


16000 REM#*^******4:4i**i«*if**4;**it!#:t:*:*^^i+;* 
16010 REM VOCI DETTAGLIATE 
16020 R E M $ # # '* $ #.+;:+■:# * $+.+$ $ $ $ 

16030 INPUT "BENONE DELLA VOCE PRINCIPAL 

E : ".Q$:Qf="*"+Q$ 

16040 F0R 1=0 T0 C(CD>~1 IF A$<CDjI>=Q$ 
THEN 16060 

16050 NEXT : FRINT "VOCE NON ESISTENTE":F0 
R 1 = 1 T0 2000 :NEXT : GOTO 16000 
16060 PL=I+1: INPUT "WiNOME DELLA VOCE DE 
TTAGLIATA : ";Q$ 

16070 INPUT "«(IMPORTO PER LA VOCE INTROD 
OTTA : " .: Q 

16075 PRINT "2)CARICAMENTO DATI" 

16080 INPUT " ««DAT I ESATT I <S/N> " : PT : IF 
R$="N" THEN GOTO 14000 
16090 Q$="$"+Q$ 

16100 F0R I =C ( CD > +1 TO F’L+1 STEP-1 : A*(CD 
;I > =A$ CCD,1-1): A CCD,I> =A <CD,I-1>:NEXT 
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Commenti 


Collaudo dei moduli 6.2.1-6.2.6 


MODULO 6.2.7 


16110 A$< CD, PL > =Q$ fl t CD, PL > =Q •' C < CD >=C ( CD 
,' + l : GOTO 14000 

Questo modulo accetta l’ingresso delle voci dettagliate. 

Linee 16030-16050: si domanda il nome della voce principale perti¬ 
nente, e lo si confronta con i nomi presenti nel file. Se non viene 
trovato, si genera un messaggio d’errore. Notate come si utilizza un 
ciclo per condurre la ricerca: il programma esce dal ciclo quando 
viene trovato l’elemento, e si usa il valore della variabile corrente 
del ciclo, I, per determinare il punto di inserimento della voce det¬ 
tagliata. La conclusione del ciclo significa che non è stata trovata 
la voce principale. 

Linee 16090-16110: la voce dettagliata viene marcata con un simbo¬ 
lo $ e viene aggiunta al file principale immediatamente dopo l’inte¬ 
stazione della voce principale. 

A questo punto dovreste essere in grado d’introdurre nel rendicon¬ 
to registrazioni a vostro credito o debito e vederle correttamente in¬ 
serite nella giusta colonna dell’archivio principale (colonna credito 
= 0, colonna debito = 1). Tutto ciò si può provare solo tramite 
comandi diretti da tastiera. 

V0000 REM####### # #### # # ###.4:4:4: # # # # # # # # # # 

20018 REM FILE DATI 

20020 REM############################## 

2003U PRI NT "POSIZIONARE NOSTRO, PREMERE SI 
RE TURNI" INPUT " ARRESTO AUT0MA7 I CO " ; 0:$ 
29040 POPE 192,7 POI E1,39 
20050 PR1NT "FUNEIONI DISPONIBILI “ PRIN 
T "iWl) SALVATAGGIO DATI" 

20055 PRIMI "2> CARICAMENTO DATI" 

2O060 INPUT "j(EF UNZIONE RICHIESTA " J Q : ON 
0 GOTO 20080,20140 
20070 RETURN 

20080 F0R 1=0 TU 1 IF Ata,0> = M " THEN A$ 

< 1 , 0 )=" " 

20090 P0KE1,7 : F0R 1 = 1 T0 2000 :NEXT 
20100 OPEN 1,1,2,"CONTI" 

20110 F0R I=0 TO 1 :PRINT#1,C <I): IF C <I)- 
0 THEN 20130 

28120 F0R J=0 T0 CCI >~ 1 : PRI NT# 1, ATCI, .J ) ; 
CR$,A(I,J) : NEXT J 
20130 NEXTI :CL0SE1 RETURN 
20140 OPEN 1,1,0,"CONTI" 

20150 F0R I=0 T0 1 : INPUT#1,C CI>-1F C <I> = 
0 THEN 20170 

20160 F0R J=0 T0 C <1>-1:1NPUT#1,A$ <1,J>, 
A <I,J > : NEXT J 

20170 NEXT I : CLOSE 1 : RETURN 
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Un normale modulo di file dei dati. 


MODULO 6.2.8 


MODULO 6.2.9 


21000 REM#**•:*•:** % '■¥ M Hi*'+:$$$ $ * H-: $ $ H* He He he 

2103.0 REM FORMATO 

210 2 U P EMHeHeHeHeHìHe He He '¥. he * HE :-f He He He He He He $ He -He He H : He $ He He * He 
21030 MM=MM+100000000 : M$=MI D$<STR$< MM>, 3 

21040 FAR P= IO 8 

21058 IF riID$aif-,P, 1> = ,, 0" THEN M$=LEFT$< 
m , P-1 > + •• " +RI GHT$ e. m , y-p > • HEXT 
21Ó60 RETURN 


Questo modulo esegue la stessa funzione del modulo di formatta¬ 
zione del programma precedente. 


1 7000 R E M # He He He He He he He He He He Hi He He H : Hi he He He He * *:+ He He He He He He He 
17010 REM MODIFICHE E CANCELLAZIONI 
17020 ** 

17030 FOR 1=0 TO C e. CD > 1 
17040 PRIMI "IMME*» W WICRNCELLAZ1UNI 0 M 
ODIFICHE5" 

17030 1F LEFTf-(Hf < CD,I>,1)O"$" THEN PRI 
NT " m ". MI D$ e R$ e; CD, I >, 2 > ; 

17060 IF LEFTt<R$<CD, LU > = " He" THEN LEI 
HH$=MI m tA $e CD,I>,2 >'PRINT 
17070 IF LEF T $ ( fì$ ( CD, .[ j 1 > = " $ " THEN PR IN 
T " MST , HHf ■ PR I NT " , MI D$ ' A$ e: CD ,17 2 ) . 

17080 IF AOIB, I>=0 THEN 17100 

17090 print 11 ; : mm=ao:d j ì > : 

GOSUB 21000 : PRINTM$ 

17100 FRINÌ %“M!MpMpI«ThSTI FUNZIONALI ; 

li 

17110 PRINT "Sii FI - VOCE SUCCESSIVA" 
17120 PRINT "Si F3 - MODIFICA IMPORTO" 
17130 PRINT "M F5 - TORNA AL MENU" 

17140 PRINT "W F8 - CANCELLA REGISTRASI 
OHE" 

17150 PRINT "SWNFUNZIONE RICHIESTÀ : ?" 
1716Ó GEI Q$ IF Q$="" THEN 17160 
17170 IF Q$=CHR$(140> THEN GOSUB 1800O : R 
ETURN 

17180 IF Q$=CHR$<135> THEN RETURN 

17190 IF Qf OCHR$C 134> OR LEFTf < A$<CD, I > 

,1)="*" THEN GOTO 17240 

17200 INPUT "WM IMPORTO DA AGGIUNGERE:".: 

Q 

17210 INPUT "WSDATI ESATTI <S/H> : ";R$ 

17220 IF PS O " N " THEN A ( CD, I > =A CCD, I > +Q : 
GOTO 17040 

17230 PRINT ; FOR L.= l TO 3 = PRINT C 
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Commenti 


MODULO 6.2.10 


Commenti 


$, : NEXT PRI NT " TTT1" ; ; GOTO 1 7200 
17240 HEXT I. ; RETURN 

Questo modulo permette di scorrere lungo le registrazioni sulla co¬ 
lonna desiderata del rendiconto e di modificare o cancellare delle 
registrazioni. 

Linee 17050-17090: le condizioni presenti in queste istruzioni tratta¬ 
no la formattazione dei vari tipi di elementi. Se si tratta di un ele¬ 
mento diverso da una voce dettagliata, il nome viene stampato e, 
se si tratta inoltre di voce principale, memorizzato in HH$. Se è in¬ 
vece una voce dettagliata, sopra questa viene stampato il nome del¬ 
la voce principale (precedentemente memorizzato) in modo da indi¬ 
care il gruppo di appartenenza. Infine, se l’elemento è una registra¬ 
zione singola oppure una voce dettagliata, si utilizza il modulo pre¬ 
cedente per la formattazione prima di stampare l’importo associato. 

Linee 17190-17230: premendo il tasto f3 per una voce singola o una 
registrazione dettagliata, l’utente ha facoltà di modificare l’impor¬ 
to associato all’elemento, introducendo un numero positivo o nega¬ 
tivo. Notate l’uso di CS per cancellare i messaggi in caso di errore. 

1800tì REM#********** * ****************** 
18010 REM CANCELLAZIONI 
18920 REM****** *********** ******* ****** 

18030 PL= I IF LEFT$ A$ CU, F'L >, 1 > O " * " TH 
EH Gl :— 1 : GOTO 18060 
18040 6R=Ù 

18050 GR-GR+1 IF LEFT$<AT<CD,PL+GR7,1)=" 
$" THEN GOTO 18058 

18068 FOR K=PL f 0 C ( CD > -GR- 1 : A < CD .■ K 7 = A< C 
D • K+UR 7 Hì- (. CD .> K 7 —RT UD > K+GR 7 : NEXT 
18078 C ( CD 7 ~C L’D ■' -GR : I — I-GR+1 REI URN 

Questo modulo esegue le cancellazioni definite nel modulo pre¬ 
cedente. 

Linea 18030: PL viene posto al valore della variabile di ciclo del mo¬ 
dulo precedente. In caso di registrazioni singole e voci dettagliate, 
la variabile GR, che indica il numero degli elementi da cancellare, 
viene posta a uno. 

Linea 18040: nel caso di voci principali, la variabile GR viene incre¬ 
mentata per tenere conto della voce principale stessa e di tutte le re¬ 
lative voci dettagliate, dal momento che queste vanno cancellate in¬ 
sieme con la voce principale. 

Linea 18060: la variabile GR viene utilizzata per determinare quanti 
elementi andranno riscritti nel file e di quanto vada ridotto il valore 
del lato corrispondente della matrice C. 
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Collaudo dei moduli 6.2.8-6.2.10 


MODULO 6.2.11 


Commenti 


A questo punto dovreste essere in grado di introdurre dei dati e di 
scorrerli, modificando gli importi associati o cancellando elementi 
a piacimento. 


19 0 tì 0 REM#****# $ % * *^#^***^#*iti*i**=fif $ * * $ * 

19010 REM STAMPA 

19020 REM**^*********************##**** 
19030 LEI PA$="CREDITO" : IF CD=1 THEN F'A$ 
="DEEITO" 

19040 I T=0 ^ SS=0 ^ PRI NT " 
sr ;PA$;"M" 


19850 

FOR 

1 — 

0 

u 

1—1 

j c 

C CD > - 

1 : IT= 

ir+A-iiCD, 

. I) 

19860 

PRINT "si" 

• • T 

•> • i 

F 1/2 

= INT C 

1/2) THEN PR 

INT "Sii' 

1 • 







19070 

T 

IF 

LEFTTC 

fì*C 

CD, 1 ii- 

, l;-=" 

#" THEN 

F'RIN 

1 

19000 

IF 

LEFT*', 

H* 

CD, I> 

, 1>=" 

«r 

—1 
X 

m 

PR IN 

t H wr 

1 • 

.» 







19090 

FRI 

NTMID* 

(P* 

< CD , I 

> , 2 > 



191 00 

lT-1 

IF 

LEFT*'; 

A*< 

CD, I) 

, 1> = " 

**' THEN 

1915 

191 1 0 

PRINT , 


19120 

IF 

LEFT* < 

H*< 

CD, I > 

, 1> = " 

V." THEN 

PR IN 


19130 MM*A < CD, I > GOSIJB 21000 : PR I NTM* 

19140 IF LEFT*<H$<CD,I>,1> = " t" THEN SS=S 
S+NCCIU I > 

19150 IF SS=0 OR LEFT $ < M <CD, I +1 >, 1>="$" 
THEN 19180 

19160 FRI NT --?J 

titiff;^j|" ; 

1 9 170 MM-SS•GOSUB 2 1000 : PR I NT M$: SS=8 
19180 GET GG*=IF GG*~" " THEN 19180 
19190 NEKT I : FRI NT " 

im»i»i»ih-" 

19200 PRINT " BOTALE": 

NMW l 

19210’MM=IT:GOSUB 21 000 PRINTMt 

19220 PRINT "««PREMERE UN TASTO PER TERM 

INARE" 

19230 GET 6G$ •' IF GG*= " " THEN 19238 
19240 RETURN 
19250 STOP 


Questo modulo è analogo a quello di stampa del programma pre¬ 
cedente. 


Linea 19060: per assicurare la chiarezza nell’associare somme e im¬ 
porti, le voci e i relativi importi vengono stampati alternativamente 
in nero e verde. 
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Collaudo del modulo 6.2.11 


Riepilogo 


Ulteriori sviluppi 


6.3 Bilancio preventivo 


Linea 19070: viene lasciata una linea bianca prima di stampare una 
voce principale. 

Linea 19080: alle voci dettagliate vengono aggiunti due spazi. 

Linee 19100-19140: vengono stampati i nomi e gli importi corrispon¬ 
denti, per le voci dettagliate e per le registrazioni singole. Gli impor¬ 
ti delle voci dettagliate vengono stampati in una colonna separata 
e i totali parziali di una stessa voce vengono cumulati in SS. 

Linee 19150-19170: alla fine di un gruppo di voci dettagliate viene 
stampato il totale relativo a tutto il gruppo. 

Linea 19180: anche in questo caso gli elementi vengono stampati uno 
per volta, in seguito all’azionamento di un tasto qualsiasi. 

Linee 19200-19210: viene stampato il totale del lato pertinente del 
rendiconto. 

Dopo aver introdotto alcuni dati, dovreste ora essere in grado di vi¬ 
sualizzare ogni colonna dei rendiconti. Notate che è possibile visua¬ 
lizzare solo un lato alla volta. 

Giunti a questo punto, dovreste cominciare a prendere confidenza 
con le tecniche relative all’aggiunta e all’eliminazione di elementi da 
un archivio (file) senza pregiudicarne l’ordine complessivo. Dovre¬ 
ste inoltre aver imparato alcuni dei sottili trucchi che comporta la 
visualizzazione sullo schermo di numeri anche semplici in un for¬ 
mato ben congegnato. Prima di continuare vale comunque la pena 
di rivisitare alcuni dei metodi qui impiegati, dato che nel program¬ 
ma successivo dovremo trattare e visualizzare dati di complessità mol¬ 
to maggiore di quelli incontrati fino a questo punto. 

1) Una utile funzione aggiuntiva potrebbe essere la possibilità di 
stampare il bilancio complessivo tra il dare e l’avere del rendiconto, 
una volta visualizzato ogni lato. 

2) Come nel programma precedente, se avete intenzione di memo¬ 
rizzare numerosi elementi, desidererete modificare l’attuale modulo 
di ricerca, unicamente in grado di scorrere uno per uno i vari ele¬ 
menti. State attenti comunque nel fare ciò, dal momento che il mo¬ 
dulo deve poter distinguere le voci principali mentre scorre l’archi¬ 
vio, in particolar modo per le cancellazioni. Saltare semplicemente 
da un posto all’altro nel file, senza tenere conto di questa necessità, 
potrebbe condurre a risultati disastrosi. 


Rivolgiamo ora la nostra attenzione al programma più complesso 
e difficoltoso che incontrerete in questo libro. Bilancio preventivo 
è un ausilio finanziario potente e versatile che permette all’utente 
di pianificare le proprie finanze su un periodo di 12 mesi e di esami¬ 
nare le conseguenze di decisioni particolarmente cruciali riguar¬ 
do introiti e spese. Usato con discernimento, può fornire sorprcn- 
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Bilancio preventivo: 
lista delle variabili 


MODULO 6.3.1 


denti intuizioni sul bilancio familiare per l’anno entrante, oltre na¬ 
turalmente ad illustrare alcuni dei problemi connessi con il tratta¬ 
mento di grandi quantità di dati numerici. Le matrici utilizzate dal 
programma contengono qualcosa come 800 valori numerici distinti. 


BA(1,11) 
BD(1,11) 

Cl(l,11) 
C2( 1,11) 
CU 

FOS 

H 

II 


MI 

M2 

MM 

MO(l ,29) 
MO$(l 1) 
MY 

MY$ 

N(l) 

PA(1,29,11) 
PA$(1,29) 
PP 

PT(1,11) 

RS 

T(l) 

TT 


Y 


Bilancio cassa per ogni mese 

Bilancio dei versamenti programmati sui versamenti 

effettivi 

Introiti principali 
Introiti supplementari 

Variabile temporanea utilizzata per calcolare il sur¬ 
plus/deficit cumulativo 

Stringa di controllo cursore usata per formattare la 
tabella 

Indicatore della colonna da indirizzare nelle matrici 
Variabile impiegata per assicurare una conveniente 
manipolazione dei periodi di 12 mesi che oltrepas¬ 
sano l’anno civile 

Variabile temporanea del mese per iniziare la visua¬ 
lizzazione della tabella 

Variabile temporanea che registra il cambiamento 
del mese corrente 
Numero del mese corrente 
Versamento mensile medio per ogni voce 
Nomi dei mesi 

Variabile temporanea impiegata per formattare le 
cifre di denaro 

Stringa contenente le cifre di denaro formattate 
Numero di elementi in entrambe le colonne delle 
matrici 

Importi associati alle voci delle operazioni 
Nomi delle operazioni 

Variabile temporanea usata per indicare la posizio¬ 
ne dell’elemento da modificare nella matrice 
Totali mensili delle spese 
Separatore nel file dei dati 
Variabile temporanea impiegata per calcolare l’im¬ 
porto totale raggiunto nel versamento mensile medio 
Variabile temporanea impiegata per calcolare le spe¬ 
se totali per le voci incluse nel calcolo del bilancio 
medio 

Numero dell’ultimo mese dell’anno 


21 @ 0 0 R E M # $ W. # W. # * $ $ M * # M $ # $ # $ $ # $ 3f: $ # # $ $ # 'è 
21010 REM FILE URTI 
21020 

21030 PRIMI "ftFGSIZIQNRRE IL NASTRO, QUI 
Hill PREMERE ISRETURNI" 

21040 INPUT "PER ARRESTO AUTOMATICO : ".: Q$ 
PQKE192,7:pOKE1,39 

21050 PRI NT " flEFUNZ 1 UN I DISPON ITILI-" 
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MODULO 6.3.2 


21060 FRINT "Sì 1)SALVATAGGIO URTI": PRIMI 
" 2)CARICAMENTO URTI" 

21070 IHPUT "IFUNZIONE RICHIESTÀ :"JQ: UN 
Q GOTO 21080,21130 •' RETURN 
21080 F'OKE 1,7:FOR 1 = 1 TU 2000• NEXT 
21090 OPEN 1,1,1,"BUDGET"■PRINT#1,MM,R$, 
V :FOR H=Q TO 1 :PRINT#1,NCH > 

21100 FOR I=0 TO 11 PRINT#1,C1<H,I>; R $;C 
2<H,I> : NEXT I 

21110 FOR 1=0 TO NCH>-1 IF PhKH, I > = " " T 
HEN F'RKH, I )=" " 

21120 F 'RI NT# 1, F'R$ < H, I > •' FOR J =0 TO 11 • PR 1 
NT#1,PR <H,I,J)^ NEXT J,I,H : CLOSE1 : RETURN 
21130 OPEN 1,1,0, " BUDGET " : I NF'UT# 1, MM, V : F 
OR H=0 TO 1 : INPUT#1,N<H> 

21140 FOR I=0 TO 11•INPUT#1,G1< H,I>,C2<H 
,I>•NEXT I 

21150 FOR 1=8 TO N<H>-i 
21160 I NPUT# 1, Pfi$<H, I > ^ FOR .J=0 TO 111 NP 
UT#1,PR <H,1,J>:NEXT J,I 
21170 GOSUB 14000 :NEXT H:CLOSE1 : RETURN 


La complessità di questo modulo di file dei dati dovrebbe convin¬ 
cervi della necessità di eseguire un salvataggio a intervalli regolari 
per mettervi al riparo dagli errori, inevitabili nell’introduzione di un 
programma complesso come questo. 


110 0 O R E M # 4 44 4 $ 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 44 4 
11010 REM MENU 


11030 P0KE5 


1 , 


PRIMI 


SEI 


LANCIO FAMILIARE" 


11040 PRINT 
11050 PRINT 
ILE" 

11060 PRINT 
11070 PRINT 
11080 PRINT 
NI" 

11090 PRINT 
11100 PRINT 
11110 PRINT 
11120 PRINT 
11130 PRINT 
11140 INPUT 
INI h :t,:if 


"MHEFUNZIONI DISPONIBILI : " 

" Sii) VISUAL IZZA ANALISI MENS 

" 2 ) VARIAZIUNI" 

" 3)NUOVE INTESTAZIONI" 

" 4)CANCELLAZIONE INTESIAZIO 

" 5)AZZERAMENTO IPOTESI" 

" 6:.'AGGI ORNAMENTO MESE" 

" 7>ARCHIVIAZIONE DATI" 

" 8)INIZIALIZZAZIONE" 

" 9)TERMINE" 

"3SWFUNZIONE RICHIESTÀ :";Z = PR 
Z<5 THEN 11160 


1 1 1 50 ON Z-4 GOSUB 1 5000,17000, 21 000, 120 
00,11190 : GOTO 11008 


11160 PR I NT " [««liMeMUtìRMil ) DAT I RE AL I " : PR 
INI "SODATI IPOTETICI" 
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MODULO 6.3.3 


MODULO 6.3.4 


1117tì IHF‘UT "3FUNZIONE RICHIESTÀ: ";H IF 
HO OR H>2 THEN 11170 
11180 FRINT :H=H-1:0N Z GQSUB 13000,1 
9000 , 1 6900 .• 20000 ; GOTO 1 1000 

1 ì 190 PRI N T " TlPTflT pTeiTpIpI pIpIpIpTpIp* B ft > BS>i i i » SU «iSTS SE 

ILANCIO CHIUSO" : END 


Un normale modulo di menu, con raggiunta della possibilità di de¬ 
finire se sta per essere indirizzata la colonna reale delle matrici o quel¬ 
la ipotetica. La distinzione verrà spiegata nel seguito. 


12000 R E M # '¥ ¥ * ¥ : ¥■ '¥■ ¥ ¥ ¥ ¥¥¥ ¥ $ ¥¥W- ¥ ¥ ¥ W ¥ ¥ ¥ ¥ ¥ ¥ ¥ ¥ 
12010 REM INIZIALIZZflZIONE 
12 U 2 0 R E ! v ! * :+: ¥¥¥ ¥ ¥ ¥ ¥ ¥ ¥¥■¥¥ ¥ ¥ ¥¥¥ ¥ ¥ ¥¥¥ ¥ ¥¥¥¥¥ 
12030 CLR 

12840 DIM F‘A$ < 1,29 > . NO C 1,29 >, F‘R (. 1,29,11 > 
,PT<1,11>,BDC1.11>, CIO , 11>, BA<1,11> 

12050 BIM C2 1,11.): R*--=CHRT < 13 > 

12060 DATA GEMMAI0,FEBBRAI0,MARZO,APRILE 
, MAGO 10, GI UGNO, LJJGL10 

12070 DATA AGOSTO,SETTEMBRE,OTTOBRE,NOVE 
MERE.DIGEMERE 

12080 DIM MOT- 1 .11 > ; RESTARE : FOR 1=0 TO il- 
READ MOTO) : NEXT 

12090 INPUT "SCARICAMENTO DAL NASTRO <8 
/N> ";QT : IF QT~"S" THEN GOTO 11000 
12100 INPUT "^INTRODURRE IL NUMERO DEL 
MESE CORRENTE";MM : MM=MM-1 : V=MM+11 
12110 GOSUB 18000 :GOSUB 16000 : GOTO 11000 


Modulo d’inizializzazione. 


18 8 tì 0 R E M # ¥ ¥ 

18010 REM INTROITI 

18020 REM ¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥ 
18030 FRI NT " IlilHI NTRODURRE GLI INTROITI 
PRINCIPALI COME SEGUE:" 

18040 FOR I=MM Tu V: 11 = 1 :IF 11>11 THEN 
11 = 11-12 

18050 FRI NT MOT < 11 >.; " : " : INPUT "n»»»»»il 
Hiils!" ; CI <H, Il > : NEXT I 

18060 FRI NT "METRI INTROITI PREVISTI:" 
18070 FOR I=MM TO V: 11 = I : IF I>11 THEN II 
= 11-12 

18080 FRI NT MOT <11 >.: " : " : INPUT 1 ’ :“’&i »! 18s ffln » !» 1» 1 
»*H";C2<H, II) :NEXT I 
18090 G 0 SIJ B 14000 : R E TIJ R N 


Questo modulo permette l’introduzione degli introiti, sotto le inte¬ 
stazioni di introiti principali e introiti supplementari. 








Commenti 


Collaudo dei moduli 6.3.2-6.3.4 


MODULO 6.3.5 


Commenti 


Linea 18040: benché i dati siano memorizzati nelle matrici nell’or¬ 
dine Gennaio-Dicembre, il periodo di 12 mesi che il programma è 
in grado di coprire può iniziare in qualsiasi mese. Pertanto si utiliz¬ 
za la variabile II per assicurarsi che, completato il dodicesimo me¬ 
se, il ciclo continui per indirizzare il primo mese dell’anno. 

Linea 18050: notate il modo di utilizzare la variabile H per determi¬ 
nare quale colonna delle matrici venga indirizzata. 


Inserendo dei RETURN temporanei a 14000 e a 16000 dovreste po¬ 
ter inserire i dati relativi agli introiti per i 12 mesi seguenti il mese 
d’inizio da voi scelto. Per il momento continuate a inserire dati nel¬ 
la colonna reale delle matrici — si chiarirà tutto in seguito. 


16000 R E'1#*#* * * * * * * * * * * * * mm * * * * * * * *: * * 

16010 REM INTRODUZIONE DEI PROhMENTJ 
1 6 02 O REM##* * * * * * * * * * * * * * * * * * * * * $ * $ t. * $ •» 
16030 FRI NT " NTRODUZI0! It F fi 

TTURE" 

16040 FRINÌ" "SiRNTEPORRE #"' fi UN NOME" P 
RINT "Bfì NON INSERIRE IN BILRNCIO" 

16050 FRI NT " f2$K 2ZZ y PER TERMI NflRE > " 
16060 INPUT " JSMINTEST RZI ONE DELL fi FfiTTUR 
fi -",Q$: IFQ$="ZZZ"THENGOSUB 14000 RETURN 
16070 N (. H > =N H > +1 

16080 IF N<H>«30 THEN N<H>=29 : PRINT "SF’fi 
Z10 ESfilJR ITO " : F0RI =ÒTO20Q0 : NE NT : RETURN 
16090 Pfi* <H, N<H>-1 >=Q$ ■ PRINT ".3Kv'E PS fi ME NT 
I PER ";QT;" : .tì" 

16100 F0R I-MM T0 V=11=1 : IF 11 > 1i THEN I 
1 = 11-12 

16110 PRINT MOT<11): INPUT ” : 

;PfKH,N<H>-l,II):NENT I 
16120 GOTO 16000 


Questo modulo permette d’introdurre le intestazioni delle fatture e 
i relativi importi. 


Linea 16040: il programma è in grado di calcolare una cifra media 
mensile che coprirà il totale dell’esborso annuale sotto ciascuna in¬ 
testazione. Premettendo al nome un * si esclude dal procedimento 
quel particolare pagamento — viene cioè trattato come una voce 
saltuaria. 


Linea 16070: si utilizza la variabile H per incrementare l’una o l’al¬ 
tra posizione della matrice N a due elementi, che registra il numero 
di operazioni memorizzate in ogni colonna di PAS. 

Linee 16090-16110: dopo avere specificato l’intestazione del paga¬ 
mento, si domanda d’inserire l’ammontare per ciascuno dei 12 mesi 
del periodo coperto. 
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Collaudo del modulo 6.3.5 


MODULO 6.3.6 


Commenti 


Dovreste ora poter introdurre alcune fatture, per ritrovarle memo¬ 
rizzate nella colonna zero delle matrici PA$ e PA — rimanendo nel¬ 
le colonne reali delle matrici. Per questa prova è necessario mante¬ 
nere il RETURN temporaneo a 14000. 

14000 REM****************************** 
14010 REM RGGIORNAMENTI 
14020 REM****************************** 
14030 T < H > =0 

14040 FOR 1=0 IO N(H>~1 : BU=0 : IF LEFT^PA 
THEN 14860 

14050 FOR J—0 TO 11 : BU=BU+PflCH, I .■ J> : NEXT 
:MO<H,I>=BU/12 : T <H>=T <H > +M0 <H,I> 

14060 NEXT I 

14070 TT=0:CU=0 = FOR I=MM TO V : 11 = I + 12*<I 
>11)=PT<HiI1)=0 

14080 FOR .J=0 TO N<H>-1 :F'T<H, II) =PTCH, 11 
)+Pfì< H, J, Il>:NEXT J :TT=TT+PT( H, II) 

14030 FOR J=0 TO N<H)-1=IF LEFT$<Pfì*<H,J 
"* •• JHEN TT=TT-Pfi<H, J, II): NEXT J 
14100 ED C H, 1 1 ) =T ( H ) * CI --MM+ 1 ) -TT ■ CU=CU+G 1 
< l-UII)+C2<H,11)-PT<H,Il>•Efi <H, II)=CU 
14110 NEXT I:RETURN 

Questo modulo esegue tutti i calcoli necessari per la costruzione del¬ 
la tabella delle cifre per cui stiamo lavorando. 

Linee 14040-14060: le cifre del preventivo medio mensile vengono 
calcolate e memorizzate nella matrice MO. In T viene memorizzato 
il totale cumulativo di queste cifre. Il procedimento non viene ese¬ 
guito per le intestazioni di pagamento che iniziano con un *. 

Linea 14070: notate l’uso della condizione logica (I > 11) per calco¬ 
lare il valore di II. Se I è minore o uguale a 11, la condizione varrà 
zero e non influenzerà il valore di II. Quando I è maggiore di 11, 
la condizione assumerà il valore di meno uno e si può utilizzare per 
riposizionare II. 

Linea 14080: i totali di tutte le fatture da pagare in un dato mese 
vengono sommati nella linea pertinente di PT. TT viene utilizzato 
per contenere il totale generale di tutti questi totali mensili. 

Linea 14090: le somme associate a qualsiasi voce che non deve esse¬ 
re inclusa nei calcoli del preventivo medio vengono ora sottratte da 
TT, che a questo punto contiene il totale generale delle voci incluse 
nel computo del preventivo medio. 

Linea 14100: viene ora memorizzato nella matrice BD il bilancio delle 
cifre preventivate contro i pagamenti effettivi, moltiplicando l’esbor¬ 
so medio mensile per il numero dei mesi e sottraendo i pagamenti 
effettuati sulle voci di preventivo fino al mese considerato. Nella ma- 
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Collaudo del modulo 6.3.6 


MODULO 6.3.7 


MODULO 6.3.8 


trice BA si pone il bilancio tra i due tipi d’introito e il totale dei pa¬ 
gamenti effettuati durante il mese. 

Non è facile collaudare completamente questo modulo finché non 
si è inserito quello di visualizzazione, tuttavia è cosa buona intro¬ 
durre alcuni dati, dal momento che ciò richiamerà questo modulo 
e controllerà la sintassi. Se confidate nel buon funzionamento del 
modulo, è conveniente procedere al salvataggio su nastro dei dati 
introdotti. 

2 2 0 0 0 r e m # * * * * * * * * * $ * * * **** * ****** * * * * * 

22018 REM ROUTINE FUNZIONALE 

22020 REM'**'* * * * * * * * * * * * * * * * * * * ** * * * * * * * 

22030 M J=M V /10 0 0 

22040 MJ=INT<ABS<MJ>+10000> MV$=MIB*<STR 
$«'M.T ■', 3> : IF MJ>=20000 THEN MV$= "####" 
22050 RETURN 

Una routine di formattazione che restituisce un numero di quattro 
cifre, completo di zeri non significativi, se necessario. Le cifre stam¬ 
pate si riferiranno alle migliaia di lire. Inoltre, se il dato da stampa¬ 
re è maggiore di £ 9999000, verrà visualizzato “####”, per indica¬ 
re il fatto che eccede le capacità di visualizzazione del programma. 
I calcoli effettuati non ne risentiranno comunque. 


13000 REM****************************** 
13010 REM VISUALIZZAZIONE 
13020 REM****************************** 

13030 PRI NT " ^immmiHOTACCU I NO " 
13040 INPUT "NUMERO DEL. MESE INIZIALE ", MI 
:IF MIO OR M1>11 THEN 13040 
13050 M1=M1-1 : IF MM-M1-12* < M1>MM-1> <4 TH 
EN M1=MM-4-12* C MMC5) 

130ÒO PRINI '.Utilili 

13070 PRINT " IÉ331ESE 

13080 F0RJ=M1 T0 MI+3 = PRINT " 1888888" ; LEFT$ 
(M0*< J+12*CJM1>),3)J 
13090 NE NT J = PRINT "IBI SE EBT 
13100 PRINT "H «, 

$ 11 

13110 FOR 1=0 Tu N<H)~1 : IF 1015 THEN 13 


140 

13120 INPUT "IUtìRETURNH^ER PULIRE LO SCHE 
RMO E CONTINUARE";Q$ : PRINT 
13125 FOR J=1 TO 28 
13130 PRINT " 

": NENT j:PRINT "JfflWW" 

1 3 140 PR I NT " BB88S" ; LEFT$<PA$ CH, I > ,12): PR 

int "n»»»»*»»»»»! 11 ; 
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13150 FOR J=M1 IO M1+3 : PRIHT " Sitt" j : MV= 
HT (Pfi < H.. I.. J +12* ( J> 11 ) > ) : GOSUB 22030 
13160 PRIMI MVT ; : NEXT J:PRINT "figga"; 

13170 MV=IHT<Mu(H,I>>:GOSUB 22036 : PPINT 
MVT:NEXT I 


I 


13180 PRIHT " 


ra lt*X'X*:«x-x-x-x-:*x-:-:*x-X':*>x-:':'X'X , >:vX-:-X‘:‘:»r-x*x*:^>x«:^x-x<-x-x : :x::X::x : x : : : 


13190 INPUT *' «PREMERE ARE TUR NI PER L"'ANA 
LISI";QT 

13200 pr i nt " mmr ■ for i =01020 ; pr i nt h 


13210 NEXT I ■ RESTORE : FOR J=1 Tu 12 •' READ 
AT : NE/T : FRI NT "SftftMfii" 

13220 DOTA TOTALE,BUDGET,BIL PREV,INCASS 
I PRINC,INCASSI SUPPL,INCASSI TOT 
13238 DATA BIL. CASSA,BIL CON 
13240 FOR 1=1 Tu 8 : READ REPRINT " fii?:3" 

A T 

13250 PRINT " 

i4:fe5$x$*x$3S NEftT 1 

13260 FOT= " isiSiiiiliSsrisIiiJ^iiSSsiS" 

13276 FOR I=M1 TO MI+3 ; 11=1+12*<I>11):PR 

int "mm u 


13280 PR I NT FOT" fii?" , : MV=PT C H, 11 ) : F'R I NT 
: IF MV-C0 THEN PRINT "Si"; 
i3290 GOSUB 22036•PRINT MYT PRINT 
13300 PR INT FOT, " Sii" ; : MV=T<H> : PRINT " iti " ; 
: IF MV<0 THEN PRINT "lai", 

13318 GOSUB 22030 -PRINT MVT;PRINT 
13320 PR I NT FOT ; " Si:;:" . : MV=BD < H, 11 > : PR I NT 
"■"; : IF MV<0 THEN PRINT 'CST; 

13330 GOSUB 22630 :PRINT MVT•PRINT 
13340 PR I NT FOT ; " Si?", : MV=C 1 < H, 11 > = PR I NT 
"r ( ;:lF MVCO THEN PRINT "T; 

13350 GOSUB 22030:PRINT MVT:PRINT 
13360 PR I NT FOT ; " Si?": MV=C2 (. H, 11 ) : PR I NT 
" sa " j : IF MV<0 THEN PRINT "S*"; 

13370 GOSUB 22030:PRINT MVT:PRINT 
13380 PR I NT FOT ; " Si?" ; : MV=MV+C 1<H, Il ) PP I 
NT "l": IF MV<0 THEN PRINT '".'Ti 
13390 GOSUB 22030:PRINT MVT■PRINT 
13400 PR I NT FOT" Si?" ; : MV=MV-PT < H ,11) PP I 
NT "i" : IF MVC9 THEN PRINT "fSI"; 

13410 GOSUB 22030:PRINT MVT: PRINT * 

13420 PR I NT FOT ; " Si?" ; : MV=BA<H, 11 ) : PR I NT 
"sa" ; : IF MVCO THEN PRINT "fai"; 

13430 GOSUB 22030:PRINT MVT:PRINT 
13440 FOT=FO$+">»iÌil" =NEXT I 
13450 INPUT "«RIPETERE VISUALIZZAZIONE < 
S/N > ".;QT 
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13460 IF Q$="S" THEN 13060 
13470 RETURN 

Nel programma precedente abbiamo constatato che i moduli di vi¬ 
sualizzazione sono spesso la parte più complessa di un programma 
il cui scopo sia presentare una tabella di dati, e anche questo non 
fa certamente eccezione. Ciò detto, va notato che sotto l’apparente 
complessità questo è un modulo relativamente semplice, che racco¬ 
glie cifre già calcolate e le pone sullo schermo. Appare complesso 
solo a causa del numero di cifre da stampare. 

Commenti Linee 13040-13050: la tabella visualizza le cifre relative a quattro mesi 
successivi a quello indicato dall’utente. Tuttavia oltrepassare il ter¬ 
mine del periodo di 12 mesi corrente toglierebbe significato alla ta¬ 
bella, pertanto, se viene introdotta una cifra corrispondente a un pe¬ 
riodo inferiore ai quattro mesi dal termine, il mese iniziale viene 
riposizionato. 

Linee 13060-13100: si stampano l’intestazione della tabella, consi¬ 
stente nelle prime tre lettere del mese considerato, e una intestazio¬ 
ne per la colonna “bilancio medio”. 

Linee 13100-13170: i nomi corrispondenti ai pagamenti vengono ot¬ 
tenuti dalla matrice PA$ e stampati nella colonna a sinistra. Di se¬ 
guito, le cifre relative ai quattro mesi e la cifra del bilancio medio 
per ogni voce vengono stampate sullo schermo in senso orizzontale, 
separate da caratteri grafici nelle colonne, utilizzando il modulo pre¬ 
cedente per formattare gli importi, con gli zeri non significativi se 
necessario. Vengono stampate 15 linee, tenendo conto della possi¬ 
bilità di pulire lo schermo e stamparne altrettante se ciò non fosse 
sufficiente. Il programma può trattare fino a 30 intestazioni. 

Linee 13210-13240: i titoli per le cifre nella seconda parte della ta¬ 
bella vengono letti dalle frasi DATA e stampati verticalmente lungo 
il lato destro dello schermo — l’intestazione della tabella non viene 
modificata (l’intestazione della colonna di bilancio è ora in sovrap¬ 
più, ma non viene cancellata). 

Linee 13260-13440: nonostante la lunghezza, si tratta di una routine 
semplice che, usando la stringa FOS per determinare la posizione della 
colonna, stampa in senso verticale le cifre corrispondenti a ogni me¬ 
se di fronte alle proprie intestazioni. Al termine della colonna di ogni 
mese, vengono aggiunti a FOS cinque caratteri di spostamento a de¬ 
stra del cursore e si ripete il procedimento in una nuova colonna, 
per il mese successivo. Notate l’uso dei caratteri di controllo rosso 
e nero per indicare se una voce sia positiva o negativa. 

Collaudo dei moduli 6.3.7 e 6.3.8 Avendo dei dati già memorizzati, dovreste ora essere in grado di vi¬ 
sualizzarli sullo schermo. Per controllare la tabella (a parte il suo 
aspetto esteriore) è necessario comprendere il significato delle varie 
cifre visualizzate. 
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MODULO 6.3.9 


TOTALE È il totale di tutti i pagamenti da eseguire nel mese 

PREVENTIVO Lo stesso per ogni mese, è questa la somma media 
da accantonare al fine di coprire, nel periodo di 12 
mesi considerato, tutte le fatture non saldate. Un 
preventivo medio non necessariamente coprirà tut¬ 
te le uscite di ogni singolo mese (per esempio se tut¬ 
ti i pagamenti sono stati effettuati durante il primo 
mese). Questa cifra segnala se la somma accanto¬ 
nata in media si trovi al passo con gli effettivi pa¬ 
gamenti che è chiamata a coprire. Alla fine del pe¬ 
riodo di 12 mesi sarà zero 

BILANCIO 

CASSA Differenza tra introiti e spese nel mese considerato 

BILANCIO 

COMPL. Differenza tra introiti totali e spese totali dall’ini¬ 

zio del periodo di 12 mesi 

Le voci INTROITI PRINCIPALI/INTROITI SUPP./INTROITI TOTALI 
non necessitano di particolari spiegazioni. 

Notate come si avranno delle piccole discrepanze, dal momento che 
vengono visualizzate solo cifre intere (in multipli di 1000 lire), men¬ 
tre i calcoli vengono effettivamente compiuti su cifre complete. Perciò 
il preventivo mensile per una spesa di 37(000) lire sarà visualizzato 
come 3(000) lire, ma ciò non influenzerà il calcolo esatto del pre¬ 
ventivo mensile totale. 


i s 800 REM# % $ * $ # f $ % if % # $ $ * $ $ « # # $ # $ # # w. 

19010 REM MODIFICHE 

19020 R E M mm * * # M % # # * # * * * $ * $ $ * * * $ * * * * 

19030 PRI NT " 3aM»»m»i»Bi»H5rtOD IFI CHE 


19040 PEINT 
FICA" 

19850 FRINT 
19060 FRINT 
19870 FRINT 
19080 INPUT 


"MSFUNZIUNI DISPQNIEILI=M0DI 


" Sii >VOCI DI SPESA" 

" 2>INCASSI PRINCIPALI" 

" 3 >INCASSI SUPPLEMENTARI" 

" SJfflFUNZ I ONE RICHIESTA : " ; QQ : 0 
N QQ G0SUB 1910U.. 19190,. 19190 
19090 G0SUB 14000:RETURN 
19180 INPUT "INTESTAZIONE DA MODIFICARE: 


" ; Ol¬ 
isi IB F0R 1=0 TU Nd-P'-l : IF Q$OPfl$(Hi I) 
THEN 19130 

19120 PP=I :G0T0 19140 

19130 NE NT I : F’RINT "«VOCE NON PRESENTE": 
F0R I = 1T02000 : NENTI : RETURN 
19140 PRINT"ntì" ; RAT': H, PP;• : PRINT"flSINTR0D 
UREE NUOVO VALORE 0 '#•" PER CONFERMARE'^" 
19150 F0R I=MM Tu V =11=1+12*(I> 11 ) 

191 SU PRI NT M0*< 11 > : PRINT " 

:";PA<H,PP,Il>;: INPUT Q$ 
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MODULO 6.3.10 


MODULO 6.3.11 


19170 IF QtO " * " THEM PR C H, PP . 11 =VRL ( Qt 

t 

19180 NEMT I■RETURN 

19190 IF QQ=2-THEN PRIMI "UaSilNCRSSI PRI 
MCI PALI • ".; 

19200 IF QQ=3 THEM PRIMI "CWMINCRSSI SUR 
PLEMENTRRI:"; 

19205 PRIMI " '*' PER CONFERMARE " 

19210 FOR I=MM TU V =11 = I + 12*<I>11> 

19220 PRI NT Mutai.:'-PRIMI "PWftUfrUtì'giBSDi; 

• il • 

• j 

19230 IF QQ=2 THEM PRIMI CKHMM'.: 

19248 IF QQ-3 THEM PRIMI C2<H,I1>; 

19250 INPUT Q#:IF QtO"*" HMD QQ=2 THEM 
Cl<HiI1> = v'AL<Qt> 

19260 IF QtO"*" HMD QQ=3 THEM C2<H,I1>= 
VAL ( Qt :> 

19270 MEMI I : RETURN 


Nel caso fosse necessaria una modifica a una voce già inserita, que¬ 
sto modulo permetterà all’utente di specificare se si tratti di una vo¬ 
ce di spesa degli introiti principali o di quelli supplementari. Vengo¬ 
no quindi visualizzate le cifre corrispondenti e l’utente può sia con¬ 
fermarle (battendo un *) sia introdurre un nuovo valore. 


20003 REM###******* ******************** 

29010 REM CANCELLA INTESTAZIONI 
2U020 REM****************************** 
20030 INPUT "VOCE DA CANCELLARE : ";Qt 
20050 FOR 1=0 TU N(H>-1 ; IF Qt=PAt (H, I> T 
HEN 2U080 

20070 NERI I .'PRIMI "feTSfv'OCE NON PRESENTE" 
:FOR J=1 T0 2008 ; MENI J ; RETURN 
20080 N < H > =N < H > -1 : FOR -J= 1 TU N < H >-1 • PAt < 
H.. J ) =Pfit (. H .• J+1 

20090 FOR K=8 TU 11 : PA C H > J.. K >=PA ( H , J+1.. K 
>:MEXT K,J•GOSUB 14000 : RETURN 


Questo modulo permette di cancellare una intestazione qualsiasi. 


170Ò0 REM****************************** 

17010 REM REGISTRA MESE 

17020 REM****************************** 

17030 PR I NT " ZK»ÌÌ>ÌÌ>Ì»P)aAGG I ORNAMENTO 
MESE" 

17048 INPUT'"^INTRODURRE IL NUMERO DEL M 
ESE CORRENTE :";M2: IFM2<Ù0RM2>12THEN17040 
17050 M2-M2-1 :IF M2=MM THEM RETURN 
17060 IF M2CMM THEM M2=M2+12 
17070 FOR I=MM TO M2 ■I 1=1+12*<I>11) 
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Collaudo dei moduli 6.3.9-6.3.11 


MODULO 6.3.12 


17080 PRI NT " IlftiiiilftiiHEtfGG I ORNAMENTO 
MESE" 

17090 PRINT" SEINTRODURRE COMLETAMENTE GL 
I I MPORTl PER IL PROSSIMO " ; MO$ ( 11 > ; " • «" 

17100 FOR J=0 TO NCtì)-1 :PRIHTPATf0, J > ;" 

C " ; PAC0, ,T, 11 : INPUT PACO, J, 11 > 

17110 HENT J 

17128 INPUT "««INTROITI PRINCIPALICIC 
0, II) 

17130 INPUT " mi NTROITI SUPPLEMENTARI :"; 
C2C0,II):NEXT I 

17140 MM=M2+12* C M2>11):V=MM+11 :H=0:GOSUE 
14000 :GOSUB 15000 ; RETURN 


Lo scopo di questo modulo è permettere cambiamenti di mese. Quan¬ 
do l’utente specifica che è cambiato il mese corrente, vengono ri¬ 
chiesti nuovi dati per ogni voce di spesa e tipo d’introito, per ciascu¬ 
no dei mesi trascorsi, e devono ora essere aggiunti al termine del pe¬ 
riodo di 12 mesi. Così, se il periodo precedente iniziava con Mag¬ 
gio, mentre quello nuovo inizia con Luglio, all’utente verranno ri¬ 
chieste solo le cifre corrispondenti a Maggio e Giugno, dal momen¬ 
to che questi diventano ora gli ultimi due mesi del periodo di 12. 

A questo punto dovreste poter modificare le cifre delle voci di spesa 
o degli introiti, cancellare delle voci di spesa e modificare il periodo 
che il programma ricopre. Per collaudare l’ultimo modulo dovrete 
introdurre un RETURN temporaneo alla linea 15000. 

15000 

15010 REM IPOTESI 


15030 T(1)=T(0) 

15040 FOR I — 0 TO N<0)-1 :PA$ CI,I) =PA$ C0 , I 
)=M0C1,I>=MOC0,I) 

15050 FOR J=0 TO 11 : PA < 1, I, .J ) =PA < 0,1, J > : 
NEXT J,I 

15060 FOR J=0 TO 11 :PTC 1, J > =PT <0 , J) : BD< 1 
,J)=BBC 0,J > ; C1C1,J)=C1C 0,J> 

1 5070 BACI, J) =BAC 0,J):C2 C 1, J >=02 C 0 , J): NE 
XT J:NC1)=NC0) : RETURN 


Questo semplice modulo è uno dei più importanti del programma. 
Ciò che fa è copiare i dati inseriti nella colonna “reale” delle matri¬ 
ci in quella “ipotetica”. Uno dei principali punti di forza di questo 
programma è poter scegliere di introdurre dei dati nella colonna delle 
matrici riservata alle ipotesi, per provare gli effetti di una decisione 
finanziaria senza che ciò sortisca alcun effetto sui dati reali. 

Sui dati ipotetici si possono effettuare tutte le operazioni del pro¬ 
gramma e, quando sarete soddisfatti del vostro operato, tutto ciò 
che dovrete fare è richiamare questo modulo: i dati delle colonne 
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ipotetiche verranno istantaneamente riportati a quelli reali. Questo 
modulo viene richiamato automaticamente quando viene modifica¬ 
to il mese, altrimenti i due lati delle tabelle potrebbero lavorare su 
periodi differenti. 

Collaudo del modulo 6.3.12 In effetti ora siete in grado di collaudare gli aspetti ipotetici di tutte 

le funzioni semplicemente specificando dati ipotetici quando le fun¬ 
zioni vengono richiamate. Aggiungete e togliete voci da entrambi i 
lati, usate poi la visualizzazione della tabella per verificare che nes¬ 
suno dei due lati influenzi l’altro. Usate poi questo modulo per co¬ 
piare i dati reali nella parte di quelli ipotetici. Notate che la parte 
ipotetica è vuota, alPinizializzazione del programma. 

Se le funzioni ipotetiche operano correttamente, il programma è 
pronto per l’uso. 

Riepilogo Questo lungo programma, usato in modo corretto, è di notevole po¬ 
tenza, benché richieda un po’ di esercizio per poterne trarre il me¬ 
glio. Preso seriamente, può darvi alcune sorprendenti informazioni 
sullo stato delle vostre finanze durante l’anno — quando si avranno 
delle ristrettezze e quando si potrà invece largheggiare; come even¬ 
tualmente spostare i pagamenti per avere da parte qualcosa per Na¬ 
tale o per le vacanze; quale potrebbe essere l’effetto complessivo di 
un investimento o di un aumento della rendita. 

Ricordate tuttavia che questo libro è pensato per mettere il 64 al la¬ 
voro in vece vostra. Se avete positivamente superato i problemi sol¬ 
levati dal debugging di questo programma, non ci sarà alcun moti¬ 
vo per non proseguire nel tentativo di utilizzarlo in altre situazioni 
che richiedano una versatile introduzione e manipolazione di dati, 
oltre ad una chiara presentazione sotto forma di tabelle e alla possi¬ 
bilità di elaborazione di due insiemi di dati nello stesso tempo. Il 
programma si può considerare come un punto di partenza per met¬ 
tere al lavoro il 64 e le vostre nuove capacità. 

Ulteriori sviluppi 1) Il programma potrebbe risultare più utile se aveste la possibilità 
di copiare le matrici dei dati ipotetici in quelle reali. Ciò dovrebbe 
comportare solamente una piccola modifica a un modulo. 

2) Riduzioni nella lunghezza del programma possono derivare dal¬ 
la diminuzione del numero di matrici, comprimendo la stessa quan¬ 
tità di dati in matrici meno numerose ma più complesse. Dovreste 
quindi poter stampare i dati tramite pochi cicli. 

3) Volendo modificare solo un valore di un pagamento o di un in¬ 
troito dovete attraversare tutti i dodici pagamenti. Provate ad ag¬ 
giungere la possibilità di saltare al periodo considerato e di uscirne 
una volta completata la modifica che volevate apportare. 
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7. Musica 


Una delle meraviglie del 64 è il modo in cui la qualità e l’estrema dut¬ 
tilità delle sue capacità sonore dischiudono al possessore di un mi- 
cro un nuovo mondo di possibilità. In un futuro non troppo lonta¬ 
no verranno senza dubbio scritti libri sull’uso del chip d’interfaccia 
sonora del 64 (S1D = Sound Interface Device = dispositivo d’in¬ 
terfaccia sonora). 

L’incredibile complessità delle possibilità del chip SID fa sì che nes¬ 
sun programma possa render loro piena giustizia e un capitolo di 
un’opera di carattere generale non può servire altro che da introdu¬ 
zione verso le pressoché infinite combinazioni di suoni disponibili. 
Ciò detto, tuttavia, il programma qui presentato è tra quelli che for¬ 
niscono delle solide fondamenta per futuri esperimenti e creazioni. 
Lo scopo del programma non è solo mettere l’utente in grado di de¬ 
finire e suonare delle note (cosa che peraltro fa), ma anche rendere 
direttamente accessibile all’utente ogni parte del SID. La maggior 
parte di ciò che il SID può ottenere è messa a disposizione abbastanza 
semplicemente, usando questo programma come tramite. 

La prima cosa da ricordare è che una nota musicale non è semplice- 
mente una vibrazione di una determinata frequenza: in realtà è una 
combinazione di diverse frequenze, alte e basse. Ognuna delle tre 
voci del SID richiede l’introduzione del valore di frequenza della nota 
richièsta e, a questo scopo, è necessario assegnare un valore a due 
byte (o, più precisamente, a un byte “basso” e a un byte “alto”). 
Il programma deve poter accettare delle note in una forma compren¬ 
sibile all’utente, per poi tradurle in una forma utilizzabile dal SID. 
In secondo luogo, l’intensità di ogni singola nota varia in modo com¬ 
plesso mentre viene eseguita: 

a) la prima fase è nota come l’ATTACCO. È questa la velocità con 
cui la nota si porta dal silenzio al suo valore di picco. Tanto più bre¬ 
ve è il periodo di tempo dell’attacco, tanto più stridula risulterà la 
nota; 

b) la seconda fase è detta DECADIMENTO. Durante questa fase la 
nota scende dal suo valore iniziale di picco; 

c) dopo questa prima discesa, la nota entra nella fase di SUSTAIN 
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(sostenere), che determina la lunghezza del corpo principale della 
nota; 

d) alla fine la nota si affievolisce nella fase del RILASCIO, che, co¬ 
me l’ATTACCO, può essere brusco o graduale. 


Strumenti musicali diversi producono note di diverse caratteristiche, 
abbastanza indipendentemente dalla nota suonata e dal modo in cui 
varia la sua intensità. Queste differenze dipendono dalla forma d’on¬ 
da del suono prodotto dallo strumento. 

Il S1D fa sì che ognuna delle sue tre voci possa produrre una qual¬ 
siasi delle tre forme d’onda musicali e un segnale di rumore bianco 
che è utile nella creazione di effetti sonori. 

Una delle tre forme d’onda, quella impulsiva, è a sua volta capace 
di una notevole gamma di variazioni, modificando la lunghezza de¬ 
gli impulsi stessi. 

Ottenute alla fine frequenza, tonalità e forma desiderate, il chip SID 
permette il filtraggio delle note. Ciò significa che, all’interno della 
nota, diverse frequenze possono essere ridotte d’intensità, mentre 
altre non vengono variate. 


Musica: lista delle variabili FI%(3) 

HF%(2,1000) 

IN 

LF%(2,1000) 

R$ 

NL 

NO%(l,95) 

NT 

VO<Vo(2,6) 


VS 

WF%(2,1000) 

WW 


Caratteristiche di filtraggio delle tre diverse voci 
Valori alti delle frequenze di ogni nota nel motivo 
da suonare 

Puntatore di inizializzazione 
Valori bassi delle frequenze di ogni nota nel moti¬ 
vo da suonare 

Separatore per i file dei dati 
Lunghezza della nota 

Valori alti e bassi delle frequenze delle 96 note di¬ 
sponibili 

Valore della nota ricavato dall’Appendice M del Ma¬ 
nuale d’utente. 

Valori definibili da forzare tramite POKE nel chip 
SID per determinare le caratteristiche del suono delle 
tre voci 

Indirizzo di partenza di una voce nel SID. 

Valori delle forme d’onda di ogni nota da suonare 
Valore della forma d’onda per ogni singola nota 


MODULO 7.1.1 11000 

11010 REM MENU 
110 d 0 

11030 POKE 53281,15: PRINT 
WMSMUSICfl" 

11040 PRINT " 2KFUNZIONI DISPONIEILI :" 

11050 PR INT " :t!lil > PREDISPOSIZIONE VOCE " 
11060 PRINT "M2>ESECUZIONE MOTIVO CORREN 
TE" 

11070 PRINT "K3>COMPILflZIONE MOTIVO" 
11080 PRINT "M4MARCHIVIfiZIONE URTI" 

11090 PRINT "M5)INIZIfiLIZZAZIONE" 
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11100 FRINT "MS)TERMINE" 

11110 IHPIJT " KFSFUNZI OHE RICHI ESTÀ : " ; Z : F'R 
INT ".T; 

11120 IFIN=0FiND<Z<5>THEHF’RINT"BUON INIZI 
AL I ZZATO" FORI = 1 IO2000 : NEH! ; GOTO 11000 
11130 0N Z G 0 31J E 15 0O0,14000,13000,l?000 
.■ 12000 /111 40 : GOT011000 
11140 PRI NT " Weie» i » » » » i H Eli u s 

ICA TERMINATA": END 

Un normale modulo di menu. 


MODULO 7.1.2 


18000 REmmmmmmmmmmmmmmm* 

18010 REM DATI TABELLA NOTE 


18020 R EM$ W. ¥■ ¥¥■¥ ¥ ¥ ¥ '¥¥¥¥ ¥ ¥ '¥ ¥ ¥ ¥ ¥ ¥ ¥ ¥ ¥ ¥ ¥ ¥ ¥¥¥ 
18030 REM FREQUENZE NOTE 
18040 DAT A 269,284.. 301/318 .• 337.. 353 / 379.. 4 
01..425 


18045 DAT A451.. 477 / 506 

18050 DATA536 , 568.. 602 , 637675.. 716.. 758 .■ 80 


18055 DATA851/902/955/1012 
18060 DAT A 1072 /1136, 1204.. 1275.. 1351.. 1432 
..1517/ 1607.. 1703/ 1804/ 1911 ,.2025 
18070 DAT A 2145.. 22732408 .■ 2551.. 2703.. 2864 
.. 3034.. 3215.. 3406 / 3608.. 3823.. 4050 
18080 DAT A 4291,4546 .• 4817/5103 .• 5407.. 5728 
/ 6069 / 6430 / 6812/7217.. 7647.. 8101 
18090 DATA 8583 / 9093 .• 9634.. 10207.. 10814/11 
457/12138/12860/13625/14435/15294/16203 
13100 DATA 17167..18187.. 19269.. 20415/21629 
/ 22915 / 24277/ 25721.. 27250/28871.. 30583 
18110 DATA 32407 

18120 DAT A 34334.. 36376.. 38539.. 40830.. 43258 
/ 45830 / 48556 .-51443/ 54502 / 57743 .-61176 
13130 DATA 64814 


I dati di questa tabella servono semplicemente per introdurre i valo¬ 
ri delle frequenze delle note. Ogni numero rappresenta il valore del¬ 
la frequenza riprodotta, moltiplicato per il numero fisso 16.401. 


MODULO 7.1.3 12000 REm***W.***¥.******m¥*¥**¥.¥¥.****¥ 

12010 REM COSTRUZIONE TABELLE 
12020 REM****#************************* 

12030 CLR : DIM NOX C 1 / 95 > : FOR I =0 TO 95 ■ RE 
AD NN : NO;-.' < 0 /1 > = I NT < NN/256 > 

12040 N0*Z <1,1 > =NN-256* I NT < NN/256 > NEXT 
12050 DIM VOX <2/6 >,FIX<3>,LFX<2/1000)/HF 
X < 2/1000)/WFX<2,1000) 

12070 IN=1 :R$=CHR$<13 > 

12080 GOTO 11000 
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Commenti 


Collaudo del modulo 7.1.3 


MODULO 7.1.4 


L’uso delle variabili principali qui definite viene spiegato nella lista 
delle variabili. 

Linee 12030-12040: vengono letti e decodificati i valori alti e bassi 
delle frequenze per ognuna delle 95 note. Non possono essere me¬ 
morizzati nella matrice sotto forma di numero singolo, dal momen¬ 
to che la matrice è definita come formata da numeri interi e può con¬ 
tenere numeri solo fino a 32767. 1 valori alti e quelli bassi vengono 
rispettivamente posti in NO°/o(0) e NCWo(l). 

Dopo aver richiamato questo modulo, dovreste poter leggere nella 
tabella valori alti e bassi di frequenze, approssimativamente uguali 
a quelli dell’Appendice M del Manuale d’utente. Notate che non sa¬ 
ranno identici, dal momento che i valori qui utilizzati sono presi dalla 
Guida di riferimento del programmatore , la cui tabella presenta al¬ 
cune differenze. 


15000 rem#***************************** 

15010 REM PREDISPOSIZIONI VOCI 
15020 REM****************************** 
15030 INPUT "nilWUMERO DELLE! VOCE( 1 -3> : " 
, V ; IF V<1 OR V>3 THEN 15030 
15040 VS=54272+7*< V-1> 

15050 PRI NT " timi» KiHdVOCE " ; V 


15070 Tlf=" LARGHEZZA IMPULSO F/0 <BASSO : 
0-255> : " 


15080 PR I NT " n " ; T1 $ , VOZ ( V-1,2 ).: : Q:$= " " 
15090 INPUT Q$ IF QfO"" THEN VOZ(V-1,2) 
=VAL <Q$> 

15100 REM****************************** 
15110 Tll="LARGHEZZA IMPULSO F/0 (ALTO : 0 
-15> : " 

15120 PR I NT T1 $ J VOZ ( V-1,3 ) AND 15 ; : 0:t= " " 
15130 INPUT Q$ : IF QfO" " THEN VOZ<V-1,3) 
=VAL<Q$) 


15140 REM****************************** 
15150 TI$-"RUMORE EIANCO <1=SI/0=NO):" 

15160 PRINT T1$;<VOZ <V-1,4 > AND 128>/128 
; : Q$=" " 

15170 INPIJT 0$: IF Q$0"" THEN VOZ<V-1,4) 
= ( VOZ < V- 1,4) AND 126 ) OR < VAL < 0 .$ ) * 129 ) 
15130 REM****************************** 
15190 TI $= "F/0 IMPULSIVA <1=SI/0=NO):" 
15200 PRINT T1T.: (VOZCv'-l, 4) AND 64)/64; : 
Q$=" " 

15210 INPUT OS- IF QfO"" THEN VOZ(V-1,4) 
= <VOZ(V-1,4) AND 190)OR <VAL(Qf)*65) 

15220 REM****************************** 

15230 T1f="F/0 RAMPA <1=SI/0=NO):" 
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15240 PRINT Tlf; (VOX(V-1,4) AND 32>/32; : 
Q$="" 

15250 INPUT Qf : IF QfO"" THEN VOXCV-l,4) 
= <VOX(V-1,4) AND 222 >OR(VAL(Qf)*33 ) 

15260 REM****************************** 


15270 T1f="F/O TRIANGOLARE <1=SI/0=NO>:" 
15280 PRINT TIf ;<VOX<V-1,4) AND 16)/16; : 
Q$= " " 

15290 INPUT Qf: IF QfO"" THEN VOX(V-1,4) 
= ( VOX ( V-1,4) ANII 238 > OR < VAL < Qf ) * 17 ) 

153Ù0 REM****************************** 

15385 T1 f=" li ISABILITAZI OHE VOCE < 1 =S I /0= 
NO) : " 


15310 F'RINT Tlf 


•. i i 


■1,4) HNB 8>/8; ^ Qf 


15320 INPUT Qf : IF QfO"" THEN VOX(V- 1,4) 

= (VOX (V-1,4) AND 246)OR (VAL (Qf)*9) 

15330 REM****************************** 

15340 Tl$="MODULAZIONE AD ANELLO "+STRf< 

V ) + " CON " +STRf ( V-1 -3* V= 1 ) > + " 1 =S I /0=NO " 

15350 PRINT Tlf;<VOX <V-1,4) AND 4 >/4; :Qf 
». 11 11 

15360 INPUT Qf : IF QfO"" THEN VOX(V-1,4) 
= ( VOX(V-1,4) AND 250)OR (VAL (Qf)*5) 

15370 REM****************************** 

15380 T1f="SINCRONIZZAZIONE DI"+STRf<V)+ 
"CON"+STRf(V-1-3* (V=1)) + " 1=SI/8=N0" 

15390 PRINT Tlf;<VOX(V-1,4) AND 2) /2 ,:Qf 

». Il il 

15400 INPUT Qf : IF QfO"" THEN VOX<V-1,4) 
= (VOX CV-1,4) AND 253)OR <VAL<Qf)*2) 

15410 REM****************************** 
15420 Tlf="FASE DI ATTACCO (0-15)•" 

15430 PRINT Tlf; (VOX(V-1,5) AND 240),-'16; 

: Qf ss " « 

15440 INPUT Qf : IF QfO"" THEN VOX(V-1,5) 
= < VOX(V-1,5) AND 15)OR< VAL<Qf)* 16) 

15450 REM****************************** 
15460 Tlf="FASE DI DECADIMENTO (0-15):" 

15470 PRINT Tlf;VOX(V-1,5) AND 15; :Qf="" 
15480 INPUT Qf : IF QfO"" THEN VOX(V-1,5) 
F(VOX(V-1,5) AND 240)OR VAL(Qf) 

15490 REM****************************** 
15500 Tlf="FASE DEL SOSTENERE (0-15):" 
15510 PRINT Tlf;(VOX(V-1,6) AND 240)716; 

: Qf="" 

15520 INPUT Qf : IF QfO"" THEN VOX(V-1,6) 
= CVOX(V-1,6) AND 15)OR(VAL(Qf)*16) 

15530 REM****************************** 
15540 Tlf="FASE DI RILASCIO (0-15):" 
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15550 PRINT T1 $ ; VOX <V-1,6> AND 15;= Q$="" 
15560 INPUT Q$=IF Q$0"" THEN V0K<V-1,6> 
= < VO'i < V- 1,6 ) AND 240 } OR VAL < Q$ ) 

15570 FIEM444444444444444444444444444444 
15580 Tl$="TAGLIO FILTRO P,-'BASSO <0-7;-" 
15590 PRINT Tlf,FI X <0> AND 7; : OS= "" 

15600 INPUT Q$ ; IF Q$<>"" THEN FI X <0>=VAL 
<Q.$> 


15620 Tl$="TAGLIO FILTRO P/ALTO<0-255)=" 
15630 PR I NT T1 $ ; F I X < 1 ): Q$= " " 

15640 INPUT Qf : IF QTO" " THEN FIY.t 1 >=VAL 
< Q$ > 

15650 R E M 4 4 4 4 4 4 4 4 4 4 4 5+: 4 4 4 4 4 4 4 4 4 4 4 4444 4 4 4 
15660 Tl$="RISONANZA FILTRO <0-15>:" 
15670 PRINT T1 $ ;< FI X < 2) AND 240 VI 6;= Q$= 

Il II 

15680 INPUT Q$ IF OSO" " THEN FI X <2> = <FI 
X <2> AND 15 > OR < VAL < OS > $ 16 > 

15690 REM4444444444 * 444 4444444*4*4444hR 4 
15700 TU=" FILTRAGGIO VOCE <1=SI/U=NO):" 
15710 PRINT TU; <FI7i(2> AND 2T<V-l> >/2t< 
V-l>; : Q$="" 

15720 INPUTQT : IF Q$<> " " THEN FI Y. < 2 > = < FI X < 
2) AND < 255-21< V-1>>>OR < VAL< OS >*21<V-1>) 

15730 REmmmmmmmmmwmmmmmm 

15740 l'F V03 THEN 15780 

15750 TU="SPEGNIMENTO VOCE 3 d=SI/0=NO 

> : " 

15760 PRINT T1$;< FI X < 3 > AND 128 >/128; : OS 

li il 

15770 INPUT Q$- IF Q$<>"" THEN FI';<3> = <FI 
■<<3> AND 127>OR<VAL< OS >4128> 

15780 RLM4:44444444444444444444444444444 
15790 T U=" FILTRO P/ALTO <1=SI/0=NO>: H 
15800 PRINT TU.: <FI’i<3> AND 64V64; :Q$=" 

il 

15810 INPUT OS : IF Q$O n " THEN FI/(3) = <FI 
X < 3 > AND 191> OR < VAL < OS >464) 

15820 REM444444444444444444444444444444 
15830 TI*="FILTRO P/BANDA <1=SI/0=NO):" 
15840 PRINT TU; <FI’;<3> AND 32V32UQ $=" 

II 

15850 INPUT OS '■ IF Q$0"" THEN FI7i(3) = (FI 
X < 3 > AND 223 > OR < VAL < OS > 432) 

15860 REM444444444444444444444444444444 
15870 T 1 $-"FILTRO P/BASSO <1=SI/0=NO):" 

15880 PR I NT TU; < FI X < 3 > AND 16 > /16 ; : OS= " 

II 

15890 INPUT OS ^ IF Q$0"" THEN FI/(3>=<FI 
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Commenti 


( 3 ) H H D 2 3 30 R (. V Fi L. L-! $ + 16 
15 9 tì 0 R E hi :+ *++:¥+*+#+++$$++* * % * MM +*++#+ 
15910 Tl$="REGOLAZIONE VOLUME <0~15>:" 

15920 PRINT T1$;FIK<3> HMD 15;:Q$="" 
15930 INPUT 0$: IF Q$<>"" THEN FI?i<3>=FI?i 
< 3 > OR VAL<Q$ > 

15940 FOR 1=0 TO 6 : IF VOZO.'-l,I>>255 THE 
N GOTO 15970: MENI" 

15950 FOR 1=0 TO 3:IF FIZ(I>>255 THEN GO 
TU 15979:NEXT 
15960 RETURN 

15970 FRI NT "SPI AGENTE, Mfl C"E'' UN ERROR 
E" 

15980 FRINT "RIPROGRAMMARE QUESTA VOCE." 
15990 FOR 1=0 TO 2000 : NENT : GOTO 15000 

Benché questo modulo appaia lungo in modo preoccupante, è in ef¬ 
fetti estremamente semplice. 11 suo scopo c di permettere all’utente 
di indirizzare separatamente tutte le funzioni interessate del chip S1D. 
1 valori vengono memorizzati nelle matrici VO °Io e FI% finché non 
vengono suonati come motivo. 

Le linee 15030-15040: V viene posto uguale al numero della voce che 
l’utente desidera attivare. L’indirizzo 54272 è l’inizio del SID, dove 
le parti principali di ogni voce occupano 7 byte di dati, la posizione 
di partenza di ogni voce viene dunque calcolata in 15040. 

Linee 15060-15130: queste due routine determinano l’ampiezza del¬ 
l’impulso se l’utente desidera fare uso della forma d’onda impulsi¬ 
va. Ogni valore corrente viene visualizzato e rimane immutato se si 
preme RETURN. 

Linee 15140-15170: questa routine attiva la generazione di un rumore 
casuale per la voce interessata. Notate che stiamo indirizzando non 
già un intero byte del computer, ma un singolo bit (ci sono otto bit, 
o interruttori di acceso-spento, in ogni byte). A questo scopo dob¬ 
biamo fare uso delle funzioni AND e OR. Per mostrare se è attivato 
un dato bit, stampiamo nella matrice il valore moltiplicato logica¬ 
mente (AND) con la potenza di 2 del numero del bit corrispondente 
— i bit sono numerati da 0 a 7 con valori crescenti da destra a sini¬ 
stra. Se il bit è attivo (a 1), si ottiene lo stesso valore, altrimenti ze¬ 
ro. Per trasformare il valore ottenuto in “zero” o in “uno”, questo 
viene diviso per due elevato alla potenza del numero del bit. Per mo¬ 
dificare il valore del bit desiderato, è necessario moltiplicare logica¬ 
mente (AND) il valore dell’intero byte per 255 — 21 (numero del bit): 
ciò pone a zero il bit desiderato, lasciando invariati tutti i rimanen¬ 
ti. Il singolo bit viene ora sommato logicamente (OR) con l’uno o 

10 zero inseriti, così ponendo il suo valore a 1 o 0 come volevamo. 

Linea 15170: notate che, sebbene il bit che desideriamo attivare sia 

11 numero 7 (valore 128), in realtà sommiamo al byte il valore 129, 
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attivando così il bit 7 e il bit 0. Ciò a causa del fatto che i valori 
delle forme d’onda non producono in realtà alcun suono se non vie¬ 
ne attivato il bit 0. 

Linee 15180-15290: queste tre routine compiono la medesima fun¬ 
zione per i bit 6-4, le altre tre forme d’onda. 

Linee 15300-15400: queste due routine permettono di modulare l’u¬ 
scita di questa voce con la forma d’onda e l’inviluppo della nota di 
un’altra voce, con risultati spesso sorprendenti. Non è necessario che 
l’altra voce sia effettivamente predisposta per emettere il suono, ma 
devono essere stati introdotti i valori di forma d’onda e d’invilup¬ 
po. L’uso di queste due funzioni si può scoprire solo per tentativi. 

Linee 15410-15560: queste quattro routine permettono di predisporre 
ATTACCO, DECADIMENTO, SUSTAIN, RILASCIO. Notate che in 
queste routine, invece di agire su singoli bit, si opera su gruppi di 
quattro. Una AND del byte con 240, seguita da una OR con un va¬ 
lore tra 0 e 15, agisce sui bit 0-3. Una AND con 15, seguita da una 
OR con un valore (0-15) * 16 agisce sui bit 4-7. 

Linee 15570-15680: tramite queste tre routine si possono predispor¬ 
re le frequenze a cui operano i filtri del SID. Questi valori si appli¬ 
cano dunque a tutte le voci per le quali sono predisposti i filtri. 

Linee 15690-15890: le rimanenti sezioni permettono di attivare o no 
i tre tipi di filtri disponibili. Il filtro passa-alto lascia passare inalte¬ 
rate le frequenze superiori al valore prefissato. Il filtro passa-basso 
esegue la stessa funzione per le frequenze basse. Il filtro passa-banda 
permette di passare a una banda di frequenze centrali. Se sono atti¬ 
vati tutti e tre i filtri, sarà dunque ridotto il volume complessivo del¬ 
la nota. L’utente ha facoltà di scegliere se filtrare o no una data nota. 

Linee 15730-15770: nel caso della voce 3 c’è un bit particolare che 
permette di escludere l’uscita della voce. 

Lince 15910-15930: viene predisposto contemporaneamente per tut¬ 
te le voci il volume a cui emettere le note. 

Linee 15940-15990: dato che fino a questo punto non ci sono con¬ 
trolli d’errore sull’introduzione di valori, vengono analizzati i con¬ 
tenuti delle matrici, allo scopo di verificare che non vi siano valori 
superiori a 255: tentare di eseguire una POKE con un valore simile 
in un solo byte porterebbe all’arresto del programma. 

Collaudo del modulo 7.1.4 Non è possibile, a questo stadio, un controllo completo di questo 

modulo, dal momento che non c’è ancora alcuna routine per suona¬ 
re effettivamente un motivo. 

È tuttavia possibile una prova di natura logica annotando accurata¬ 
mente i valori introdotti e stampando di seguito i contenuti di VO% 
e FI^o per controllare, con l’aiuto del listato, che corrispondano a 
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ciò che è stato introdotto. Per esempio, se è stato introdotto il valo¬ 
re massimo per ogni argomento, con la voce posta a 1, allora 
VO<%(0,2-6) dovrebbe contenere 255. 


MODULO 7.1.5 


13000 R E M # * ¥ # $####•*: # $ ■¥■ -f: * * $ '■■¥ $ # '+ * $ # # $ $ $ $ 
13010 REM MOTRICI MOTIVO 
10 0 E O Fi E M $ $ # :+■: $$$ $ # % $ :f; :+i$ # $ $ # $ $ # if $ ;+■ % f: $ $ iti # 
13030 RESTORE : FOR 1=0 Tu 35 : READ Fi : HEHT 
13040 TL=0 : FOR 1=0 IO 2 VL=1 
13050 READ NT .< NL : IF NT=0 THEH 13140 
13360 MW=VO’i< 1,4> ' IF NT<0 THEH HT=--NT '• NW 


= 1 

13070 IF MEO 1 THEH 13030 
13080 HF*;< I.. VL> =\\ÙV. <0, HT) : LF’i< I, VL> =HO?i< 
1, HT > : ÌAFX ( I, VL ) =WN : VL=VL+1 : GOTO 13050 
13030 FOR J= 1 TO NL-1 : HF5i < I, VL > -HOX (. 0, HT 
) : LFJS< I.. VL>=H0;-i< 1, HT) : WFK< I, VL)=NH 
13100 VL=VL+1:HEKT J 

13110 HFTi< I , VL) =HO:-iC0, HT > : LF?i< I , VL ) =H0K< 
1, NT) ^ WF?i< I, VL)=WW-1 : VL-VL+1 
1312Ó IF WF‘:.a,VL-1KÒ THEH WFK<IA'L-1 ) = 
1 


J1SO GOTO 3 3050 

3140 IF VL>TL THEH TL=VL 

3158 HEHT I 

3160 RETURN 


Questo modulo estrae la nota specificata dall’utente sotto forma di 
DATA e la compila in una forma che il SID possa suonare. Questa 
operazione è necessaria perché permette al programma di trattare 
note di lunghezza diversa. Le note effettivamente suonate dal pro¬ 
gramma sono tutte della stessa lunghezza, determinata da un ciclo 
di temporizzazione. Le note più lunghe vengono ottenute collegan¬ 
do una serie di note fino a raggiungere la lunghezza desiderata — 
non è avvertibile alcuna separazione tra le singole parti delle note. 
Le lunghezze possono variare per le singole voci, ma ovviamente deb¬ 
bono essere tali da mantenere coordinate tutte le voci che devono 
essere usate. 

Per costruire i dati di un motivo, tutto ciò che bisogna fare è regi¬ 
strare, per ogni nota, il relativo numero tratto dal Manuale, e la sua 
lunghezza. L’unità di misura in cui viene registrata la lunghezza di¬ 
penderà dalla nota più breve che si desidera suonare. Accorciando 
il ciclo di temporizzazione alla linea 14180 sarà possibile suonare note 
più brevi, ma ciò significherà che le note più lunghe dovranno esse¬ 
re formate da più unità elementari. In questo caso l’inconveniente 
è che ogni singola unità di una nota, indipendentemente dal tempo 
determinato dal ciclo di temporizzazione, richiederà uno spazio in 
ciascuna delle matrici LF%, HF% e WF%, cosicché, quanto più si 
abbrevia il ciclo di temporizzazione, tanto maggiore sarà la memo¬ 
ria necessaria per contenere un motivo di una data lunghezza. 
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Commenti Linea 13030: dal momento che le predisposizioni delle voci e i valori 
delle note vengono modificati durante lo sviluppo del pezzo, sarà 
necessario leggere più volte i dati. Poiché la tabella dei valori delle 
note c posta prima dei dati relativi al pezzo, è necessario azzerare 
il puntatore alle DATA tramite RESTORE e rileggere ogni volta la 
tabella delle note fino all’inizio dei dati del motivo da suonare. Il 
puntatore non si può posizionare in un qualsiasi punto del program¬ 
ma, a piacere; si può solo riportare all’inizio dei dati o lasciare dove 
si trova, e puntare alla linea di dati seguente l’ultima letta. 

Linea 13040: questo ciclo assicura che vengano compilati i dati del 
motivo per ogni voce. La variabile VL viene utilizzata per memoriz¬ 
zare la lunghezza del motivo per ogni singola voce. 

Linea 13050: vengono letti dai dati del motivo il valore e la lunghez¬ 
za della nota. Se il valore è zero, il programma considera completi 
i dati della voce e si porta alla successiva. 

Linea 13060: si legge dalla matrice VO% il valore della forma d’on¬ 
da della voce corrente. Se il valore della nota è un numero negativo, 
il valore della forma d’onda viene ridotto di uno, azzerando così il 
valore del bit zero relativo alla forma d’onda, e questo produrrà un 
silenzio di lunghezza NL, invece di un suono. 

Linee 13070-13080: se la lunghezza della nota è 1, i dati della fre¬ 
quenza alta e della forma d’onda vengono memorizzati nella matri¬ 
ce corrispondente e la lunghezza della voce viene aumentata di uno. 

Linee 13090-13130: se la lunghezza della nota è maggiore di 1, ven¬ 
gono riempite NL — 1 posizioni successive nella matrice con i valo¬ 
ri di frequenza e forma d’onda. All’ultimo elemento della nota, il 
valore della forma d’onda viene ridotto di 1, permettendo così alla 
nota di affievolirsi in modo naturale. Se per una voce non vengono 
inseriti dati diversi da 0,0 (cioè non desiderate utilizzare quella par¬ 
ticolare voce), è possibile che la forma d’onda assuma il valore di —1, 
cosa che fermerebbe il programma se si tentasse di eseguire una PO- 
KE. La linea 13120 controlla che ciò non accada. 

Linea 13140: la lunghezza del motivo per la voce corrente (VL) vie¬ 
ne confrontata con TL, che contiene inizialmente zero, e, in segui¬ 
to, la lunghezza della più lunga voce del motivo. Questo assicura 
che, durante l’esecuzione, non ci si fermi prima delFesaurimento di 
tutto il contenuto di ogni voce. 

Collaudo del modulo 7.1.5 Ancora una volta non è possibile collaudare completamente il mo¬ 
dulo finché non venga effettivamente suonato il pezzo. Tuttavia, se 
vengono inseriti dei dati analoghi a quelli del modulo 8, con una for¬ 
ma d onda predisposta almeno per la voce 1, chiamando questo mo¬ 
dulo si dovrebbero porre i corretti valori alti e bassi delle frequenze 
in HF% e LF% e quelli relativi alle forme d’onda in WF%. 
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MODULO 7.1.6 


Commenti 


14000 REM****************************** 
14010 REM SUONA BRAMO 
14020 REM*#*#**#*****#***#***#*****##** 
14030 POR I =54272 TO 54296 : POKEI .• 0 : NEXT 
14040 POR 1=0 TO 2 ; VS=54272+?*I 
14050 POKE VS+2.. VOX < 1,2 > 

14060 POKE VS+3 , VOX< I.. 3 > 

14070 POKE VS+5,VOXC1,5 > 

1403O P 0 K E V 6+6 .• V 0 “i I .• 6 
14O90 NEXT I 
14100 POKE 54293, FIX < 0 > 

14110 POKE 54294,FIX<1> 

14120 POKE 54295,FIX<2> 

1413G POKE 54296,FIX(3> 

14140 FOR 1=1 TU TL 

14150 POKE54272,LFX<0,I>:P0KE54279,LFX(1 
, T -, : pnKF54'^fi6 , LFX <2 . I '• 

14160 " P0KE54273, HFX < 0 Ì I > : POKE54280, HFX (. 1 
, I ;• : P0KE54287, HFXC2,1 ) 

14170 P0KE54276, WFX < 0, I > : P0KE54283, WF Y. < 1 
, I>:POKE54290,WFX<2,1> 

14130 FOR TT=1 TO 80:NEXT TT,I 
14190 FOR TT=1 TO 200 : NEXT ; P0KE54296,0 
142O0 P0KE54276,1 : POKE 54283,1:POKE 5429 
0 , 1 

14210 RETURN 

Questo modulo introduce nel S1D le caratteristiche delle voci predi¬ 
sposte nel modulo 4, di seguito introduce i valori delle frequenze, 
insieme con la forma d’onda desiderata, per produrre le note che 
costituiscono il motivo. 

Linea 14030: il chip SID viene inizializzato forzando a zero ogni sua 
locazione. 

Linee 14040-14090: vengono forzate nel SID le predisposizioni della 
voce specificate al modulo 4. 

Linee 14100-14130: le predisposizioni relative ai filtri sono comuni 
a tutte le voci, vengono così introdotte una volta sola. 

Lince 14140-14180: fino al raggiungimento della lunghezza del mo¬ 
tivo (TL), per ogni nota, vengono posti nei primi due byte di ogni 
locazione di voce del SID i valori per la frequenza alta e bassa, se¬ 
guiti, nella quinta locazione, dalla forma d’onda. Questa operazio¬ 
ne attiva la nota desiderata, che viene suonata per la durata del ci¬ 
clo alla linea 14180. 

Linea 14190: alla conclusione del brano si utilizza un ciclo lievemente 
più lungo, per fare sì che il suono si estingua; le tre forme d’onda 
vengono quindi poste sul silenzio. 
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Collaudo del modulo 7.1.6 


MODULO 7.1.7 


MODULO 71.8 


Piuttosto semplice. Se avete introdotto dei dati, inizializzato il pro¬ 
gramma, attivato almeno una voce e compilato il brano, dovreste 
ora poter suonare la vostra opera. I dati d’esempio forniti al Modu¬ 
lo 8 suonano una scala di DO con le prime due voci. 


1 U LI Li R EM## $ # $ $ $ $ # # ■■¥ # # # # -t; # # # # $ # # if if: # $ ♦ 
17010 REM FILE URTI 

i ' 0 ci 0 R E M H 1 : # $ # •+ $ $ # % £ # M 4: # jf :+i $ % % 

17030 INPUT "StaPQSIZIONftRE IL NASTRO, QU 
INDI PREMERE 3RETURNS-- " ; Q$ 

17040 PRI NT " Pisi > SfìLVflTRGG10 DRTI " : PPI NT 
"2 > CRRICfìMENT0 DRTI " 


17050 INPIJT "3FUNZIONE RICHIESTR : " ; Q 
17060 OH Q GOTO 1 7070, 1 7 1 30 : RETURN 
17070 OPEN 1,1,2, " MIJSICR " : PR I NT# 1, TL 
17080 FOR 1=0 TO 1 •' FOR J=0 TO 95:pRINT#l 
, N07i< I, J> : NEXT J, I 

17090 FOR 1=0 TO 2: FOR .J=0 TO 6 : PRINT#1, 


VOX<1,J):NEXT J,I 
FOR 1=0 TO 3 
110 FOR 1=0 TO 2 


17100 


1 


PR I NT# 1, FI V, < I > : NEXT 
F ORJ=0TOTL : PRINT#1,LF 
Z < I, J ) ; Ri .: HF'i < I, J >.; Ri .; WFX < I, J > : NEXT J. I 
17120 CL0SE1-RETURN 
17130 OPEN 1,1,0,"MUSICR": INPUT#1,TL 
17140 FOR 1=0 TO 1 :FOR J=0 TO 95:INPUT#! 
,NOX<I,J) : NEXT J,I 

17150 FOR 1=0 TO 2 -FOR J=0 TO 6 : INPUT#1, 
VOXCI,J>:NEXT J,I 


17160 FOR 1=0 TO 
17178 FOR 1=0 TO 
X<I,J>;HFX<I,J);WFX 
17180 CLOSEI : RETURN 


INPUT#1,FIXCINEXT 
FORJ=0TOTL: INPUT#1,LF 
I, ,T> : NEXT J, I 


Si tratta di un modulo standard di file dei dati, che permette di sal¬ 
vare su nastro il brano introdotto. 


19000 REM#**^***JH********************** 
19010 REM URTI VOCE 1 

19020 REM $ % % M ifr:# $ # # % # # % % % % % -f # % % % $ % # 

19030 DRTR 34,2,34,2,39,2,41,2,43,2,39,1 

,38,1,36,2,48,1,48,1,0,0 

200 U0 

20010 REM DRTI VOCE 2 

20020 

2U030 DRTR 36,2,38,2,40,2,41,2,43,2,45,2 
,47,2,48,2,0,0 

21000 REM#***#********#*********^***** 
21010 REM DRTI VOCE 3 
21020 REmMMMMMWMMMMMMMM* 
21030 DRTR 0,0 
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Commenti Linee 19000-21030: dati di esempio per l’esecuzione di una scala di 
DO. Notate che, se desiderate usare una voce, dovete ancora intro¬ 
durre per questa 0,0. 

Riepilogo Questo programma sarà solo l’inizio delle vostre avventure con le 
possibilità sonore del 64. È un cavallo di battaglia che vi permetterà 
di sviluppare la vostra musica, per trasferirla poi ad altri program¬ 
mi, usando solo le matrici in cui è memorizzata e il modulo 6, che 
effettivamente la suona. 

Ulteriori sviluppi Posto di non incorrere in troppe limitazioni di memoria, ci sono sva¬ 
riate direzioni in cui è possibile estendere il programma: 

1) Perché non concedersi la possibilità di inserire la forma d’onda 
per ogni singola nota, invece che soltanto per ogni voce? Bisogna 
unicamente aggiungere un terzo valore per ogni nota da suonare. 

2) Volendo suonare brani più lunghi, perché non adattare il pro¬ 
gramma in modo da utilizzare un ciclo di lunghezza variabile per 
imporre la lunghezza di ogni nota? Si risparmierebbe in questo mo¬ 
do notevolmente sulla quantità di spazio necessario nelle matrici. Nel¬ 
la matrice finale, della nota dovrebbero essere memorizzati solo il 
valore e la lunghezza, che è utilizzata per determinare la durata del 
ciclo di temporizzazione. Sfortunatamente tutto ciò si può fare solo 
per una voce, dato che la temporizzazione impone la durata della 
nota per tutte e tre le voci. 

3) Volendo brani più lunghi con più di una voce, perché non dare 
al programma la possibilità di compilare parti di un brano? Queste 
verrebbero raccolte in seguito da parte di un programma esecutore 
che non necessita di enunciati DATA, di notevole spreco in termini 
di memoria. 
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David Lawrence ha pubblicato nume¬ 
rosi libri sui computer e sulle tecniche 
di programmazione. Collabora a im¬ 
portanti periodici e pubblicazioni di 
divulgazione scientifica. 


Questo non è soltanto un libro da 
leggere, un volume cioè da consi¬ 
derare come un mezzo d'appren¬ 
dimento di nuove tecniche di pro¬ 
grammazione, è anche uno stru¬ 
mento di lavoro, una vera e pro¬ 
pria collezione di programmi per il 
popolare home computer Com¬ 
modore 64, scelti e ordinati per 
utilizzare al meglio le particolari 
caratteristiche della macchina. 

Tutti provati autonomamente, i 
programmi offrono campi di appli¬ 
cazioni che avrebbero potuto 
aprirsi soltanto a chi fosse dispo¬ 
sto a comperare costosi software 
in commercio oppure già in grado 
di scrivere complessi programmi 
per soddisfare le proprie esigen¬ 
ze. 

Sono scritti in forma 'modulare'. 
Ciò significa che sono costituiti da 
unità funzionali, chiaramente 
identificabili che, una volta com¬ 


prese, si possono estrarre e reim¬ 
piegare secondo necessità. 

Ogni modulo, dove si riferisca a 
qualcosa di nuovo, viene com¬ 
mentato e si forniscono istruzioni 
per provare i programmi a mano a 
mano che i moduli vengono inse¬ 
riti. L’approccio modulare aiuta a 
evitare che i programmi diventino 
inestricabili grovigli di errori. 

Per la chiarezza dei temi esposti e 
per l’immediatezza d'uso, il libro 
risponde a una domanda molto 
diffusa di strumenti per program¬ 
mare con facilità, in particolare è 
rivolto agli utenti del Commodore 
64, ma anche, in generale, ai pos¬ 
sessori degli altri home computer 
o elaboratori personali di uso do¬ 
mestico. 

Un volume quindi di pratico im¬ 
piego e un’occasione di appro¬ 
fondimento delle tecniche di pro¬ 
grammazione. 
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